Comparer deux cellules

Résolu/Fermé

loulou38 - 7 août 2009 à 16:46
loulou38 - 10 août 2009 à 11:05

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

A voir également:

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
7 août 2009 à 22:35

bonjour

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.

loulou38
10 août 2009 à 11:05

Merci de ton aide gbinforme, ça marche!!!

A+

Loulou38

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

2 comptes facebook avec même mail et même nom

excel fractionner une cellule horizontalement

Discussions similaires

Newsletters