Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[resolu]comparaison 2 cellules sur feuilles differentes [VBA]

  • Initiateur de la discussion Initiateur de la discussion RV51
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

RV51

Guest
Bonjour,

J'ai écris ce code pour déclencher une action de copie lorsque le contenu des 2 cellules sont identique:

Ligne = 11
LigML = 6

While Worksheets("ML").Cells(LigML, 1).Value <> ""



If Worksheets("ML").Cells(LigML, 1).Value = Worksheets("Consolidation ZSFG").Cells(Ligne, 1).Value Then
Worksheets("Consolidation ZSFG").Cells(Ligne, 6) = Worksheets("ML").Cells(LigML, 12)
LigML = LigML + 1
Ligne = 6

Else: Ligne = Ligne + 1

End If
Wend


Mais je me retrouve avec le code erreur Erreur d'exécution 1004 "Erreur définie par l'application ou par l'objet" sur la ligne en rouge.
Pouvez-vous m'aider.
Merci
 
Dernière modification par un modérateur:
Re : comparaison 2 cellules sur feuilles differentes [VBA]

Bonjour RV51, le forum

Ton erreur provient que tu incrémente ligne et ligml sans mettre de borne maximal alors quand Excel arrive a un nombre de ligne superieur a sa capacité alors il plante ton code pour remédier voici un bout de code :

VB:
If LIGNE < 65536 Then ' teste si on est pas arriver en bas de la feuille Consolidation zsfg
        LIGNE = LIGNE + 1 'si non alors on ajoute une ligne
    Else ' si oui
        If LIGML <= 65536 Then ' teste si on est pas arriver en bas de la feuille ML
            LIGML =LIGML + 1 'si non on ajoute 1 ligne a la feuille ml et on revient en haut de l'autre
            LIGNE =6
        Else ' si on est en bas des 2 feuille alors on sort de la boucle
            Exit Sub
        End if
    End If
[/COLOR]
cet exemple est pour l'incrementation de la variable "ligne" mais tu doit faire la meme chose pour ligml (inverse seulement leur nom) et cela devrais fonctionner
 
Re : comparaison 2 cellules sur feuilles differentes [VBA]

Pour tototiti2008, les colonnes ne contiennent que des données ou sont vide.

nyko283, je teste lundi au boulot.

Merci à vous deux.
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
737
Réponses
6
Affichages
690
P
Réponses
8
Affichages
1 K
F
  • Question Question
Réponses
1
Affichages
1 K
K
  • Question Question
Réponses
10
Affichages
1 K
Réponses
8
Affichages
1 K
T
  • Question Question
Réponses
4
Affichages
5 K
tangiwankenobi44
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…