Comparer deux cellules
Résolu
loulou38
-
loulou38 -
loulou38 -
Bonjour,
Voilà mon problème, je n'arrive pas à faire ma comparaison entre le contenu de deux cellules, j'ai fait un petite macro mais ça marche pas des masses....
' je selectionne la cellule A1
Range("A1").Select
' je voudrais comparer la valeur de chaque cellule de la colonne A à la cellule AA1, si le texte est différent alors je descend d'une cellule et je recommence mon test, si il est égale alors je passe à la suite...mais comme ça ça marche pas.... ( j'ai même essayé de remplacé value par text et c'est pareil :(
While ActiveCell.Offset(1, 0).Value <> "AA1"
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.EntireRow.Select
Selection.Copy
Si quelqu'un à une idée????
Merci d'avance
Voilà mon problème, je n'arrive pas à faire ma comparaison entre le contenu de deux cellules, j'ai fait un petite macro mais ça marche pas des masses....
' je selectionne la cellule A1
Range("A1").Select
' je voudrais comparer la valeur de chaque cellule de la colonne A à la cellule AA1, si le texte est différent alors je descend d'une cellule et je recommence mon test, si il est égale alors je passe à la suite...mais comme ça ça marche pas.... ( j'ai même essayé de remplacé value par text et c'est pareil :(
While ActiveCell.Offset(1, 0).Value <> "AA1"
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.EntireRow.Select
Selection.Copy
Si quelqu'un à une idée????
Merci d'avance
A voir également:
- Comparer deux cellules
- Fusionner deux cellules excel - Guide
- Comment faire deux colonnes sur word - Guide
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
- Excel additionner plusieurs cellules - Guide
1 réponse
bonjour
Avec ceci la comparaison est codifiée correctement
Cependant évites de partir avec cette façon d'écrire de l'enregistreur qui n'est ni performante ni pratique à utiliser.
Ceci est une logique équivalente mais bien plus efficace et plus simple.
Avec ceci la comparaison est codifiée correctement
While ActiveCell.Offset(1, 0).Value <>
Cependant évites de partir avec cette façon d'écrire de l'enregistreur qui n'est ni performante ni pratique à utiliser.
Dim lig as Long
lig = 2
While Cells(lig,1).Value <> [AA1].Value
lig = lig + 1
Wend
Row(lig).Copy
Ceci est une logique équivalente mais bien plus efficace et plus simple.
A+
Loulou38