Discussion :

[EAU24]

Bonjour à tous,
Je voudrais écrire un code VBA qui m'indique que la valeur indiquée dans une cellule d'une feuille d'un classeur est erronée par rapport à la valeur d'une cellule d'une autre feuille du même classeur.
Exemple : "Votre code SIRET est erroné " dans un "MsgBox" car la cellule "A1" de la ("feuille 1") n'est pas égale à la cellule "A1" de la ("feuille 2")
Merci d'avance pour votre aide précieuse.

[ARTURO83]

Bonjour,

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set f1 = Sheets("Feuil1e 1")
Set f2 = Sheets("Feuille 2")
If f1.[A1] <> f2.[A1] Then MsgBox "Votre code SIRET de la cellule ""A1"" de la " & f1.Name & " est différent de celui de la cellule ""A1"" de la " & f2.Name

Cdlt

[Patrice740]

Bonjour,

On peut aussi se passer du VBA et utiliser la validation de donnée (en utilisant une plage nommée en feuille 2).

[EAU24]

Merci Arturo
Je suis nul mais je n'ai pas réussi à faire fonctionner la MsgBox. J'ai repris tel quel la formule dans un module mais rien ne se passe. ???

[ARTURO83]

Bonjour,

Les noms de feuille sont-ils corrects?

le fichier en exemple:
Pièce jointe 496846

Cdlt

[EAU24]

Merci ARTURO,
ça marche c'est super

[EAU24]

Bonjour ARTURO
Une dernière chose, je n'arrive pas à créer un bouton de macro modifiable en couleur ou en forme??? Mes bouton de VBA insert ou ActiveX sont toujours gris?
Merci
EAU24

[ARTURO83]

Bonjour,

Vous ne pouvez pas changer la couleur d'un bouton. Faites votre propre bouton maison.
essayez de reproduire ceci
Pièce jointe 497066

Cdlt

[EAU24]

Merci ARTURO,
J'abuse.... je sais
Je vais m'améliorer promis...
Merci encore
EAU