Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Valeur et nom d'une cellule

Valeur et nom d'une cellule

2 réponses
Avatar
Jacques
Bonjour tout le monde,


J'ai une petite procédure qui compare deux colonnes.
À la place du message , j'aimerai récupérer le nom de la cellule et sa
valeur.
Après plusieurs tentatives, j'ai toujours un message d'erreur ...Objet
requis...!?

voici la procédure

Dim Tab1, Tab2

Tab1 = ThisWorkbook.Sheets("Donnees").Range("B1:B909").value
Tab2 = ThisWorkbook.Sheets("Saisie").Range("B1:B909").value

For I = LBound(Tab1, 2) To UBound(Tab1, 2)

For J = LBound(Tab1, 1) To UBound(Tab1, 1) - 1

If Not Tab1(J, I) = Tab2(J, I) Then

Msgbox "Erreur" <------- c'est ici

End If
Next J

Next I

Merci de vos réponses


Jacques

Joyeux temps des Fêtes
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
olivier NICOD
il faut des parentheses msgbox ("erreur")


Jacques wrote:
Bonjour tout le monde,


J'ai une petite procédure qui compare deux colonnes.
À la place du message , j'aimerai récupérer le nom de la cellule et sa
valeur.
Après plusieurs tentatives, j'ai toujours un message d'erreur ...Objet
requis...!?

voici la procédure

Dim Tab1, Tab2

Tab1 = ThisWorkbook.Sheets("Donnees").Range("B1:B909").value
Tab2 = ThisWorkbook.Sheets("Saisie").Range("B1:B909").value

For I = LBound(Tab1, 2) To UBound(Tab1, 2)

For J = LBound(Tab1, 1) To UBound(Tab1, 1) - 1

If Not Tab1(J, I) = Tab2(J, I) Then

Msgbox "Erreur" <------- c'est ici

End If
Next J

Next I

Merci de vos réponses


Jacques

Joyeux temps des Fêtes




Avatar
Jacky
Bonsoir,

'-------
MsgBox "Adresse de l'erreur=" & Cells(j, 2).Address & Chr(10) & "Valeur
feuille donnees = " & Tab1(j, I) & Chr(10) & "Valeur feuille saisie = " &
Tab2(j, I)
'---------
Pas testé, mais ça devrait faire

--
Salutations
JJ



"Jacques" a écrit dans le message de news:

Bonjour tout le monde,


J'ai une petite procédure qui compare deux colonnes.
À la place du message , j'aimerai récupérer le nom de la cellule et sa
valeur.
Après plusieurs tentatives, j'ai toujours un message d'erreur ...Objet
requis...!?

voici la procédure

Dim Tab1, Tab2

Tab1 = ThisWorkbook.Sheets("Donnees").Range("B1:B909").value
Tab2 = ThisWorkbook.Sheets("Saisie").Range("B1:B909").value

For I = LBound(Tab1, 2) To UBound(Tab1, 2)

For J = LBound(Tab1, 1) To UBound(Tab1, 1) - 1

If Not Tab1(J, I) = Tab2(J, I) Then

Msgbox "Erreur" <------- c'est ici

End If
Next J

Next I

Merci de vos réponses


Jacques

Joyeux temps des Fêtes