A
arnaud
Guest
Bonjour le forum,
J'utilise une macro qui me permet de rechercher des valeurs dans des colonnes et de les dupliquer dans une autre colonne et à la même ligne, voici la formule :
Private Sub CommandButton1_Click()
For Each Cel In Intersect(UsedRange, Range("AT:BC"))
If Cel = "Access" Or Cel = "Sic" Or Cel= "Ter" Then Intersect(Cel.EntireRow, Range("P")) = Cel
Next Cel
End Sub
Mon problème est que cette macro ne fonctionne, je pense que cela est du aux contenus des cellules a dupliquer : il s'agit pour chaque cellule d'une formule du type Recherchev(....)
Merci sincèrement a celle ou celui qui trouvera Euréka!
Bonne journée a tous
Arnaud
J'utilise une macro qui me permet de rechercher des valeurs dans des colonnes et de les dupliquer dans une autre colonne et à la même ligne, voici la formule :
Private Sub CommandButton1_Click()
For Each Cel In Intersect(UsedRange, Range("AT:BC"))
If Cel = "Access" Or Cel = "Sic" Or Cel= "Ter" Then Intersect(Cel.EntireRow, Range("P")) = Cel
Next Cel
End Sub
Mon problème est que cette macro ne fonctionne, je pense que cela est du aux contenus des cellules a dupliquer : il s'agit pour chaque cellule d'une formule du type Recherchev(....)
Merci sincèrement a celle ou celui qui trouvera Euréka!
Bonne journée a tous
Arnaud