Menu

Erreur sur code VBA

- - Dernière réponse : ccm81
Messages postés
8785
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
21 février 2019
- 11 févr. 2019 à 20:06
Bonjour la famille
Merci de m'aider SVP !!
Je suis débutante en programmation VBA, et j'ai besoin de rectifier le code ci-dessous. Je voudrai copier coller valeur des cellule d'une colonne si la date est égale à celle d'une cellule "C1".
voici le code :

Sub cop_col_val()

Dim col As Integer
Dim lig As Integer

Worksheets("Feuil2").Active

For col = 7 To 20

If Cells(3, col).Value = Cells(1, 3).Value Then
For lig = 3 To 13
Range(Cells(lig, 3)).Select
Selection.Copy
Range(Cells(lig, col)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End If
Next

End Sub
Afficher la suite 

Votre réponse

1 réponse

Messages postés
8785
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
21 février 2019
1896
0
Merci
Bonjour

Pas très clair
Cells(3, col).Value = Cells(1, 3).Value
est ce que ces deux cellules sont dans la même feuille ?

Peux tu envoyer un bout de ton fichier sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans http://cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Cdlmnt
Commenter la réponse de ccm81