Comparer 2 colonnes de 2 feuilles différentes et coller chaine de caractères?
3 réponses
fred
Bonjour,
Par une macro comment comparer 2 Colonnes. Si il y a la m=EAme valeur
dans la cellule de ColA feuil4 et cellule de ColA feuil5 coller la
chaine de caract=E8re Message sur la m=EAme ligne que la cellule trouv=E9e
en Feuil5 en COlF soit en offset(0,5).
ColA Feuil4
1
2 Toto
ColA Feuil5 ColF Feuil5
=09
1 1
2 2
3 Toto 3 Message=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
fred
Une précision importante que j'ai omis...en fait dans la Feuil4 la cellule de comparaison doit être uniquement la cellule "A2" (et non toute la colonne comme indiqué précédemment) Merci
Une précision importante que j'ai omis...en fait dans la Feuil4 la
cellule de comparaison doit être uniquement la cellule "A2" (et non
toute la colonne comme indiqué précédemment)
Merci
Une précision importante que j'ai omis...en fait dans la Feuil4 la cellule de comparaison doit être uniquement la cellule "A2" (et non toute la colonne comme indiqué précédemment) Merci
michdenis
Bonjour Fred,
Je n'ai pas tout compris tes explications, mais le principe de base est là :
'--------------------------------- Sub test()
Dim Rg As Range, Rg1 As Range, C As Range
Set Rg = Worksheets("Feuil4").Range("A2")
With Worksheets("Feuil5") Set Rg1 = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
For Each C In Rg1 If C.Value = Rg.Value Then C.Offset(, 4) = C.Value End If Next Set Rg = Nothing: Set Rg1 = Nothing: Set C = Nothing
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news: Bonjour, Par une macro comment comparer 2 Colonnes. Si il y a la même valeur dans la cellule de ColA feuil4 et cellule de ColA feuil5 coller la chaine de caractère Message sur la même ligne que la cellule trouvée en Feuil5 en COlF soit en offset(0,5).
ColA Feuil4 1 2 Toto
ColA Feuil5 ColF Feuil5
1 1 2 2 3 Toto 3 Message
Merci pour votre aide.
Bonjour Fred,
Je n'ai pas tout compris tes explications, mais le principe de base est là :
'---------------------------------
Sub test()
Dim Rg As Range, Rg1 As Range, C As Range
Set Rg = Worksheets("Feuil4").Range("A2")
With Worksheets("Feuil5")
Set Rg1 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each C In Rg1
If C.Value = Rg.Value Then
C.Offset(, 4) = C.Value
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing: Set C = Nothing
End Sub
'---------------------------------
Salutations!
"fred" <lol.pegase@laposte.net> a écrit dans le message de news: 1129562317.766990.85860@g47g2000cwa.googlegroups.com...
Bonjour,
Par une macro comment comparer 2 Colonnes. Si il y a la même valeur
dans la cellule de ColA feuil4 et cellule de ColA feuil5 coller la
chaine de caractère Message sur la même ligne que la cellule trouvée
en Feuil5 en COlF soit en offset(0,5).
Je n'ai pas tout compris tes explications, mais le principe de base est là :
'--------------------------------- Sub test()
Dim Rg As Range, Rg1 As Range, C As Range
Set Rg = Worksheets("Feuil4").Range("A2")
With Worksheets("Feuil5") Set Rg1 = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
For Each C In Rg1 If C.Value = Rg.Value Then C.Offset(, 4) = C.Value End If Next Set Rg = Nothing: Set Rg1 = Nothing: Set C = Nothing
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news: Bonjour, Par une macro comment comparer 2 Colonnes. Si il y a la même valeur dans la cellule de ColA feuil4 et cellule de ColA feuil5 coller la chaine de caractère Message sur la même ligne que la cellule trouvée en Feuil5 en COlF soit en offset(0,5).
ColA Feuil4 1 2 Toto
ColA Feuil5 ColF Feuil5
1 1 2 2 3 Toto 3 Message
Merci pour votre aide.
fred
Merci Michdenis...c'est exactement ça!!!
"fred" a écrit dans le message de news:
Une précision importante que j'ai omis...en fait dans la Feuil4 la cellule de comparaison doit être uniquement la cellule "A2" (et non toute la colonne comme indiqué précédemment) Merci
Merci Michdenis...c'est exactement ça!!!
"fred" <lol.pegase@laposte.net> a écrit dans le message de news:
1129562899.433331.300930@g43g2000cwa.googlegroups.com...
Une précision importante que j'ai omis...en fait dans la Feuil4 la
cellule de comparaison doit être uniquement la cellule "A2" (et non
toute la colonne comme indiqué précédemment)
Merci
Une précision importante que j'ai omis...en fait dans la Feuil4 la cellule de comparaison doit être uniquement la cellule "A2" (et non toute la colonne comme indiqué précédemment) Merci
