Discussion :

[Alinkaaa]

Bonjour à tous,

J'ai un tout petit soucis avec mon code VBA. Quelqu’un peut m'aider, s'il vous plaît?

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

[a_diard]

Bonjour, c'est normal

exécute ta macro en pas à pas

comme tu fait un exit for après la copie, les colonnes suivantes ne sont pas copiées

PS: je pense que tu peux supprimer la plupart des Select, je ne comprends pas ton cppy.

[Alinkaaa]

Je te remercie!!! J'ai réussi!!! Passe une bonne journée

[MarcelG]

Bonjour,

Si je peux me permettre.

1 - Balises de codes
2 - Indenter le code (retrait lors de méthode avec End: With, For...)
3 - Ces f... de Select!
4 - Déclarer les variables (Par les options du VBE, rendre cete déclaration toujours obligatoire)
5 - Sortir du mode Copy

Pourrait-on voir le code final?

[Alinkaaa]

Cher Marcel,

Je n'ai pas vraiment compris, je ne suis pas très forte en VBA

[MarcelG]

Chèr(e) Alinkaa,

Justement.
Pourrais-tu retourner ici le dernier code que tu as utilisé.
J'y apporterai quelques commentaires que je souhaite constructifs.

[Alinkaaa]

J'ai juste supprimé une ligne c'est tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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
        End If
    Next
End Sub