Marco copie cellule mirroir
kermitdive
-
kermitdive Messages postés 7 Statut Membre -
kermitdive Messages postés 7 Statut Membre -
Bonjour,
voila j'ai recuperé je ne sais plus ou une macro qui fonctionnait super bien :
en fait c'est un distancier j'ai une liste de ville colonne A et la meme liste ligne 1
a l'intersection des meme nom la case se grise
je voudrais lorsque je remplie par exemple armentieres - bailleul 10 (km) que la cellule a l'intersection bailleul armentiere se remplisse toute seule 10
voila ma macro qui fonctionnait mais je ne sais pas pourquoi bug
Private Sub Worksheet_Change(ByVal Target As Range)
Dim villeligne As Range
Dim villecolonne As Range
Application.EnableEvents = False
Set villecolonne = Range("A2:A1000")
Set villeligne = Range("B1:HZ1")
lig = Target.Row
col = Target.Column
ville1 = Range("A" & lig): ville2 = Cells(1, col)
'Stop
With villecolonne
Set c = .Find(ville2)
If Not c Is Nothing Then
adres2 = c.Address
numeligne = c.Row
End If
End With
With villeligne
Set c = .Find(ville1)
If Not c Is Nothing Then
adres1 = c.Address
numecol = c.Column
End If
End With
Cells(numeligne, numecol) = Target.Value
'Stop
Application.EnableEvents = True
End Sub
merci d'avance
voila j'ai recuperé je ne sais plus ou une macro qui fonctionnait super bien :
en fait c'est un distancier j'ai une liste de ville colonne A et la meme liste ligne 1
a l'intersection des meme nom la case se grise
je voudrais lorsque je remplie par exemple armentieres - bailleul 10 (km) que la cellule a l'intersection bailleul armentiere se remplisse toute seule 10
voila ma macro qui fonctionnait mais je ne sais pas pourquoi bug
Private Sub Worksheet_Change(ByVal Target As Range)
Dim villeligne As Range
Dim villecolonne As Range
Application.EnableEvents = False
Set villecolonne = Range("A2:A1000")
Set villeligne = Range("B1:HZ1")
lig = Target.Row
col = Target.Column
ville1 = Range("A" & lig): ville2 = Cells(1, col)
'Stop
With villecolonne
Set c = .Find(ville2)
If Not c Is Nothing Then
adres2 = c.Address
numeligne = c.Row
End If
End With
With villeligne
Set c = .Find(ville1)
If Not c Is Nothing Then
adres1 = c.Address
numecol = c.Column
End If
End With
Cells(numeligne, numecol) = Target.Value
'Stop
Application.EnableEvents = True
End Sub
merci d'avance
10 réponses
-
Bonjour
Un exemple un peu plus simple
http://www.cjoint.com/c/FCyofoCNvB5
Cdlmnt -
bonjour ccm81
merci beaucoup c'est exactement ce dont j'ai besoin rapide et impecable
encore une fois merci
cordialement -
Bonjour ccm81,
je reviens vers toi car j'ai un eptit probleme que je n'arrive pas a resoudre.
Lorsque j'ajoute une ville que ce soit directement au bon endroit dans la collone A ou en bas il me cree automatiquement sa correspondance dans la ligne 1 avec le nom mais de ce fait mes distance ne sont plus dans les bonnes cellules. Il faudrait soit empeche la creation de la nouvelle colonne soit entrainer automatiquement le decalage a droite de tous les chiffres
je met mon distancier en lien ci dessous Essayez d'ajouter une ville de fait tous est decalé ..j'ai meme essaye en faisant un trie en etendant la selection..marche pas...
quelqu'un aurait une idée
merci d'avance
http://www.cjoint.com/c/FCDoL1lbFny -
Bonjour ccm81,
je reviens vers toi car j'ai un eptit probleme que je n'arrive pas a resoudre.
Lorsque j'ajoute une ville que ce soit directement au bon endroit dans la collone A ou en bas il me cree automatiquement sa correspondance dans la ligne 1 avec le nom mais de ce fait mes distance ne sont plus dans les bonnes cellules. Il faudrait soit empeche la creation de la nouvelle colonne soit entrainer automatiquement le decalage a droite de tous les chiffres
je met mon distancier en lien ci dessous Essayez d'ajouter une ville de fait tous est decalé ..j'ai meme essaye en faisant un trie en etendant la selection..marche pas...
quelqu'un aurait une idée
merci d'avance
https://www.cjoint.com/c/FCDoL1lbFny -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour
Un essai à tester
http://www.cjoint.com/c/FCDqFvyVsBR
RQ. plage nommée
TabD=DECALER(Feuil1!$C$4;1;1;NBVAL(Feuil1!$C:$C);NBVAL(Feuil1!$4:$4))
Cdlmnt -
bonsoir et merci du coup de main,
alors j'ai integrer ton code creer mon nom pour le tableau
la copie mirroir fonctionne mais le controle K m'ouvre la fenetre insertion de lien sur mon classeur alors qu'il ouvre bien la fentre ajout de ville sur le tien
j'essaie de voie ou est l’erreur mais je ne trouve pas dans le code
https://www.cjoint.com/c/FCDtjDoJSrM
une idée ...mais c'est exactement ce qu'il me faut
merci -
1. controle K m'ouvre la fenetre insertion de lien sur mon classeu
Normal si tu n'as rien fait. En fait il te faut attribuer ce raccourci clavier à la macro AjouterVille. Depuis la feuille de calcul
Outils/Macro/Macros tu selectionne la macro AjouterVille puis /Option et tu attribues le raccourci clavier (que tu veux)
2. Il te faut retoucher un peu le code
nomV = UCase(InputBox("Nom de la nouvelle ville", "ZZZ", ""))
If nomV = "" Then Exit Sub
- Modifier le preimere ligne
- Ajouter la seconde
Cdlmnt -
re
merci beaucoup j'ai réussi a tous paramétrer j'ai vu la ligne ajouté pour eviter les lignes vides tous fonctionne et en plus j'ai compris en grande partie la logique
merci beaucoup
bonne soiree -
Re
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Cdlmnt -
Bonjour,
je suis désolé mais je n'etais pas connecté lors de la publication du premier message donc je ne vois pas ou mettre résolu Si un admin pouvait le faire
cordialement
