VBA tester valeur de deux colonnes pour en copier une troisième [Résolu]
A voir également:
- VBA tester valeur de deux colonnes pour en copier une troisième
- Requete : échanger valeurs de 2 colonnes ✓ - Forum - SQL
- Vba excel liste déroulante 2 colonnes - Forum - Visual Basic
- [Catégorie modifiée VB6 --> VBA] tester si une valeur appartient à une liste sou ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 --> VBA] Problème code pour comparer deux colonnes de ch ✓ - Forum - Visual Basic 6
- Masquer 2 colonnes valeur vides ✓ - Forum - Visual Basic 6
7 réponses
Bien (on y voit plus clair).
Mais alors :
puisque row sera la dernière ligne remplie avant la ligne 50
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Mais alors :
Y.Range("B50").End(xlUp).Row ' faire toute la colonne B
faire toute la colonne B n'est pas exact !
puisque row sera la dernière ligne remplie avant la ligne 50
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Hé ! (j'ai réagi trop vite, là !) :
Regarde donc la syntaxe de Countif !
le premier argument : la plage à fouiller
Le second : l'expression de valeur à compter !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Regarde donc la syntaxe de Countif !
le premier argument : la plage à fouiller
Le second : l'expression de valeur à compter !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Bon...
(je dois aller voir la mer).
De toutes manières :
1) il est assez maladroit ici d'utiliser CountIf, qui force à parcourir à tous coups la totalité de la plage (puisque doit compter). Il est moins maladroit d'utiliser la méthode Find (qui, elle, s'arrêtera au 1er trouvé, si trouvé). Bien que, personnellement, j'agirais encore autrement, mais bon.
2) quelle que soit la méthode, elle n'a de réel intérêt que li la colonne de la feuille de référence ne comporte elle-même aucun doublon. Sinon ... (devine !)
3) enfin et surtout : Quel est l'intérêt de faire une telle opération ? (je ne le vois pas vraiment). Peux-tu expliquer ton but final ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
(je dois aller voir la mer).
De toutes manières :
1) il est assez maladroit ici d'utiliser CountIf, qui force à parcourir à tous coups la totalité de la plage (puisque doit compter). Il est moins maladroit d'utiliser la méthode Find (qui, elle, s'arrêtera au 1er trouvé, si trouvé). Bien que, personnellement, j'agirais encore autrement, mais bon.
2) quelle que soit la méthode, elle n'a de réel intérêt que li la colonne de la feuille de référence ne comporte elle-même aucun doublon. Sinon ... (devine !)
3) enfin et surtout : Quel est l'intérêt de faire une telle opération ? (je ne le vois pas vraiment). Peux-tu expliquer ton but final ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
c'est encore moi,
la macro que j'ai commencé et celle-là
Sub Commentaire()
Dim X As Worksheet, Y As Worksheet
Dim i As Long
Set X = Sheets("extraction")
Set Y = Sheets("TCD")
For i = 3 To Y.Range("B50").End(xlUp).Row ' faire toute la colonne B
If Application.WorksheetFunction.CountIf(Y.Range("b" & i), X.Range("b:b")) = 0 Then
X.Range("C" & i).Copy Destination:=Y.Range("d" & i).End(xlUp).Offset(1, 0)
End If
Next
MsgBox "Terminé"
End Sub
la macro que j'ai commencé et celle-là
Sub Commentaire()
Dim X As Worksheet, Y As Worksheet
Dim i As Long
Set X = Sheets("extraction")
Set Y = Sheets("TCD")
For i = 3 To Y.Range("B50").End(xlUp).Row ' faire toute la colonne B
If Application.WorksheetFunction.CountIf(Y.Range("b" & i), X.Range("b:b")) = 0 Then
X.Range("C" & i).Copy Destination:=Y.Range("d" & i).End(xlUp).Offset(1, 0)
End If
Next
MsgBox "Terminé"
End Sub
Bonjour
Et je ne vois pas, dans ton code, une telle recherche
Une chose est de comparer qu'une cellule d'une feuille est égale à l'autre, de même adresse sur l'autre feuille
Une autre chose est de vérifier que l'autre feuille ne contient pas déjà (n'importe où dans une colonne) la valeur testée (une cellule d'une colonne d'une feuille
Pas vraiment( claire, comme tu le vois, ta demande !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
et si la boucle trouve des valeurs identiques entre les colonnes B des deux feuilles
Et je ne vois pas, dans ton code, une telle recherche
Une chose est de comparer qu'une cellule d'une feuille est égale à l'autre, de même adresse sur l'autre feuille
Une autre chose est de vérifier que l'autre feuille ne contient pas déjà (n'importe où dans une colonne) la valeur testée (une cellule d'une colonne d'une feuille
Pas vraiment( claire, comme tu le vois, ta demande !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Je pensais que cette phrase permettait de valider la cohérence colB, feuil1 et col.B, feuil 2?
If Application.WorksheetFunction.CountIf(Y.Range("b" & i), X.Range("b:b")) = 0 Then
effectivement, je souhaite prendre la cellule B3 de la feuille 2 et parcourir toutes les cellules de la colonne B feuil1 et coller à chaque fois le texte se trouvant dans la cellule en colC si celle-ci n'est pas vide.
Puis tester la cell B4 de la feuil2 avec les mêmes conditions etc, la B5 etc....
Merci d'avance.
If Application.WorksheetFunction.CountIf(Y.Range("b" & i), X.Range("b:b")) = 0 Then
effectivement, je souhaite prendre la cellule B3 de la feuille 2 et parcourir toutes les cellules de la colonne B feuil1 et coller à chaque fois le texte se trouvant dans la cellule en colC si celle-ci n'est pas vide.
Puis tester la cell B4 de la feuil2 avec les mêmes conditions etc, la B5 etc....
Merci d'avance.
Désolée pour la réponse tardive car j'étais retenue en réunion.
en fait ma feuille 1 s'alimente avec une extraction provenant d'un logiciel.(données écrasées chaque jour)
Ma feuille 2 est un Tableau croisé dynamique qui reprend les données de la feuille1 et une série de formule ainsi qu'une première macro permettant le contrôle des données de l'extraction (temps, moyenne, etc...).
Le lien entre la feuille 1 et la feuille 2 est un numéro de lot qui se répète entre 4 et 10 fois(lignes) (en colonne B feuil 1, et en colonne B, feuil2 en dehors du TCD), à ce numéro de lot se rapporte un commentaire lorsque les contrôles ne sont pas cohérents(col C, feuil1), c'est pourquoi j'ai besoin de rapporter ces commentaires en feuil2,col C.
Pour ce qui est du B50, c'était juste pour ne pas mouliner jusqu'à la 6500... au cas ou ma macro serait trop lourde.
en fait ma feuille 1 s'alimente avec une extraction provenant d'un logiciel.(données écrasées chaque jour)
Ma feuille 2 est un Tableau croisé dynamique qui reprend les données de la feuille1 et une série de formule ainsi qu'une première macro permettant le contrôle des données de l'extraction (temps, moyenne, etc...).
Le lien entre la feuille 1 et la feuille 2 est un numéro de lot qui se répète entre 4 et 10 fois(lignes) (en colonne B feuil 1, et en colonne B, feuil2 en dehors du TCD), à ce numéro de lot se rapporte un commentaire lorsque les contrôles ne sont pas cohérents(col C, feuil1), c'est pourquoi j'ai besoin de rapporter ces commentaires en feuil2,col C.
Pour ce qui est du B50, c'était juste pour ne pas mouliner jusqu'à la 6500... au cas ou ma macro serait trop lourde.