Comparer une cellule dans plusieurs onglet Fermé

Question

Bonjour, 

Je réalise un outil de gestion de personnel, j'ai un code qui marche mais je voudrais l'améliorer. 

Le classeur comporte 9 onglets identiques et titrés avec les noms des différents chantiers en cours. Un onglet synthèse vérifie qu'une personne ne pointe deux fois au même endroit au même moment. Si c'est le cas une formule affiche Erreur dans un onglet synthèse.

la macro ( un peu simpliste ) que j'ai permet d'afficher un message d'erreur dès la saisie d'une coquille n'importe où dans le tableau. Ce que je souhaite c'est pouvoir récupérer la position de la cellule qui est déjà affecté et afficher dans mon message ou aller la cherché.
Je me perds avec les conditions du If quand j'essaie de récupérer l'adresse de la cellule

Sub error()
    
  For Each cellule In Sheets("Synthèse").Range("C4:OX116")
    If cellule = "Erreur" Then   
        MsgBox ("la personne est déjà affecté")    
    End If
  Next
   
End Sub



Configuration: Windows / Chrome 69.0.3497.100

cs_Le Pivert · Answer

Bonjour,

Comme ceci

 MsgBox cellule.Address

jordane45 · Answer

Bonjour,

Je pense comprendre que tu aimerai récupérer  les coordonnées de la cellule que tu es en train de "modifier" ?
En gros.. tu écris une valeur.. et hop ça déclenche ta macro ?
Dans ce cas tu dois regarder les event  worksheet_change

Private Sub Worksheet_Change(ByVal Target as Range) 
    MsgBox Target.address
End Sub
 

Si tu veux effectuer une RECHERCHE dans ton classeur pour trouver où se trouve une valeur.. tu peux utiliser la méthode FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel

ThauTheme · Answer

Bonjour Bacon, bonjour le forum,

Pas sûr d'avoir bien compris... Peut-être comme ça :
Sub error()
    
  For Each cellule In Sheets("Synthèse").Range("C4:OX116")
    If cellule = "Erreur" Then   
        MsgBox "La personne est déjà affectée dans la cellule " & celulle.address(0, 0) & "."
    End If
  Next
   
End Sub

BACON · Answer

Bonjour Jordan45 et ThauTheme,

Merci pour vos réponses :) 

Alors je ne connaissais pas la fonction adress merci. 

L'idée est un peu plus complexe, j'aimerais que la macro vérifie dans chaque onglet si il y a quelque chose dans la meme cellule que la synthèse. On a l'adresse d'une cellule dans un onglet, on aimerai savoir qu'est ce qu'il y a à la même adresse mais dans un autre onglet. et afficher dans le message d'erreur le nom de l'onglet. 

J'ai utilisé la sub worksheet_Change top !! Merci.

Comparer une cellule dans plusieurs onglet

4 réponses

Discussions similaires