Choisir et copier en valeur chaque colonne qui a la date = Sheets(Etat Loc
Bonjour à tous,
J'ai un tout petit soucis avec mon code VBA. Peut quelqu’un m'aider, s'il vous plaît?
Voici mon code:
Sub Bouton72_Cliquer()
For Each CellDate In Sheets("BP Best Trimestre").Range("7:7")
If CellDate = Sheets("Etat Locatif").Range("A4").Value Then
Sheets("BP Best Trimestre").Select
Range("7:7").Select
Columns(CellDate.Column).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next
End Sub
Dans le Sheet "BP Best Trimestre" il y a plusieurs colonnes avec la même date, mais mon code me copie qu'une seule colonne. J'ai tout essayé avec mon code, rien marche...
Je vous remercie
Bonjour Alinkaa,
Enlève le
Exit Forqui empêche le code de vérifier les autres colonnes de la ligne 7.
Cordialement,
Merci Cher IB!!!!
Passe une excellente journée,
Bien cordialement
Alina