A voir également:
- Copier les valeurs d'une colonne si même numéro de compte trouvé
- Supprimer compte instagram - Guide
- Déplacer une colonne excel - Guide
- Compte facebook piraté - Guide
- Numero prive - Guide
- Copier une vidéo youtube - Guide
2 réponses
Stellou la rebelle
Messages postés
20
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
23 juillet 2013
17 juin 2013 à 10:54
17 juin 2013 à 10:54
Bonjour,
je te propose ces lignes de codes, j'espère qu'elles marcheront. Juste tu risque d'avoir un problème avec tailletableaubord, car via ce que j'ai compris, tu ne l'as connait pas. Il te faudra surement utiliser une fonction tel que worksheetfunction.counta([collone]).
Dim tailletableaubord
For i=2 to tailletableaubord
For j=6 to 1014
If Sheets("tableau de bord").Range("A"& i)=Sheets("synthèse").Range("A"&j) then
Sheets("synthèse").Range("K"&j) = Sheets("tableau de bord").Range("G"& i)
End If
Next
Next
J'espère que cela t'aidera
A plus
je te propose ces lignes de codes, j'espère qu'elles marcheront. Juste tu risque d'avoir un problème avec tailletableaubord, car via ce que j'ai compris, tu ne l'as connait pas. Il te faudra surement utiliser une fonction tel que worksheetfunction.counta([collone]).
Dim tailletableaubord
For i=2 to tailletableaubord
For j=6 to 1014
If Sheets("tableau de bord").Range("A"& i)=Sheets("synthèse").Range("A"&j) then
Sheets("synthèse").Range("K"&j) = Sheets("tableau de bord").Range("G"& i)
End If
Next
Next
J'espère que cela t'aidera
A plus
Merci pour ta réponse Stellou ! Je vais voir si ton code peut s'adapter a mon problème :)
J'ai continuer de bosser dessus en parallèle et j'ai écris le code ci dessous, je suis plus très loin de mon objectif mais il ne veut pas rentrer dans ma deuxième boucle donc donnee2 ne prend pas de valeur. j'ai l'impression que mon "For Nolig2 = 2 To F1.Range("A65535").End(xlUp).Row" pose un problème car le End(xlUp).Row reste a 1 alors qu'il devrait etre a beaucoup plus..
Quelqu'un a une idée ?
Sub Comparaison()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim Donnee As String, donnee2 As String
Set F1 = Worksheets("bal Lagord 31.03.13") 'Le fichier source
Set F2 = Worksheets("synthese") 'Le fichier destinataire
For Nolig = 6 To F2.Range("A65535").End(xlUp).Row 'Plage source
Donnee = F2.Cells(Nolig, 1).Value ' variable a comparer
For Nolig2 = 2 To F1.Range("A65535").End(xlUp).Row
donnee2 = F1.Cells(Nolig2, 1).Value
If Donnee = donnee2 Then 'si indice n'est pas différent
'on attribue la valeur
F1.Cells(Nolig2, 7) = F2.Cells(Nolig, 11) 'et on transfère
Else 'sinon
F2.Cells(Nolig, 11) = "0" 'on met 0
End If
'Set ind = Nothing
'End With
'End With
Next Nolig2
Next Nolig
' erreur dans la boucle for ne rentre pas dans 'lautre
End Sub
J'ai continuer de bosser dessus en parallèle et j'ai écris le code ci dessous, je suis plus très loin de mon objectif mais il ne veut pas rentrer dans ma deuxième boucle donc donnee2 ne prend pas de valeur. j'ai l'impression que mon "For Nolig2 = 2 To F1.Range("A65535").End(xlUp).Row" pose un problème car le End(xlUp).Row reste a 1 alors qu'il devrait etre a beaucoup plus..
Quelqu'un a une idée ?
Sub Comparaison()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim Donnee As String, donnee2 As String
Set F1 = Worksheets("bal Lagord 31.03.13") 'Le fichier source
Set F2 = Worksheets("synthese") 'Le fichier destinataire
For Nolig = 6 To F2.Range("A65535").End(xlUp).Row 'Plage source
Donnee = F2.Cells(Nolig, 1).Value ' variable a comparer
For Nolig2 = 2 To F1.Range("A65535").End(xlUp).Row
donnee2 = F1.Cells(Nolig2, 1).Value
If Donnee = donnee2 Then 'si indice n'est pas différent
'on attribue la valeur
F1.Cells(Nolig2, 7) = F2.Cells(Nolig, 11) 'et on transfère
Else 'sinon
F2.Cells(Nolig, 11) = "0" 'on met 0
End If
'Set ind = Nothing
'End With
'End With
Next Nolig2
Next Nolig
' erreur dans la boucle for ne rentre pas dans 'lautre
End Sub
