Erreur sur code VBA
Skaw
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Erreur sur code VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
1 réponse
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 https://www.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
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 https://www.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
