[Déplacé vb.Net -> VBA] VERIFIER UNE CONDITION SUR 12 FEUILLES AVEC LA MEME COMMANDE

Bonjour, J'ai commencé une macro qui me sert de formulaire de saisie,elle fonctionne bien. Mais maintenant je souhaiterai que le programme me dise si une saisie et déjà écrite dans les cellules de destination (12 feuilles au total identique 1 par mois ). Pour la saisie j'utilise la fonction on while et offset. J'essaie de faire la même chose pour la commande de vérification . Voici le code: Dim i As Integer i = 0 Do While Sheets("janvier").Range("B9").Offset(i, 0).Value <> Sheets("Formulaire").Range("B5").Value And i < 65 i = i + 1 Loop If Sheets("janvier").Range("B9").Offset(i, 2).Value <> 1 Then Else i = 0 Do While Sheets("février").Range("B9").Offset(i, 0).Value <> Sheets("Formulaire").Range("B5").Value And i < 65 i = i + 1 Loop If Sheets("février").Range("B9").Offset(i, 2).Value <> 1 Then Dim info1 As Integer info1 = MsgBox("!!!INFO!!! Une saisie sur la même date a déjà été faites,toutes les anciennes données seront effacées!!!INFO!!! ", vbYesNo + vbInformation, "infos") If info1 = 7 Then Exit Sub End If End If J'ai mis le <> 1 mais je ne connais pas le code pour dire que la cellule est vide ,l'idéal serait que la vérification soit sur "offset de (i,2) à (i,22)ce qui correspondant à la ligne de saisie. Le code précedent fonctionne uniquement sur la feuille de janvier mais pas sur celle de février,alors pour la suite... je suis perdu.... Si toutefois quelqu'un peut m'aider un peu ... Merci à tous

Bonjour, Merci pour la réponse Jack, je vais essayer de mieux m'expliquer. J'ai remis le code dans un format plus lisible, pour la boucle j'ai essayé mais au dela de 2 feuilles le msg ne s'active pas même si dans les cellules de la feuille de destination il y a des valeur. La démarche est que la cellule B5 de la feuille formulaire est une date . La recherche se fait à partir de la cellule B9 des feuilles et vérifie les dates puis lorsque la date est trouvée ,il faudrait vérifier les cellules de "offset(i,2)à offset(i,22),...mais là cela se corse est le programme fonctionne uniquement sur la feuille "janvier". J'ai un problème avec la boucle Sinon j'ai aussi une question comment dois t on coder pour une la vérification d'une cellule vide dans une feuille (la cellule contient une formule...est la je coince encore...) Je débute vraiment ..... Voici le code mis en forme: Dim i As Integer i = 0 Do While Sheets("janvier").Range("B9").Offset(i, 0).Value <> Sheets("Formulaire").Range("B5").Value And i < 65 i = i + 1 Loop If Sheets("janvier").Range("B9").Offset(i, 2).Value <> 1 Then Else i = 0 Do While Sheets("février").Range("B9").Offset(i, 0).Value <> Sheets("Formulaire").Range("B5").Value And i < 65 i = i + 1 Loop If Sheets("février").Range("B9").Offset(i, 2).Value <> 1 Then Dim info1 As Integer info1 = MsgBox("!!!INFO!!! Une saisie sur la même date a déjà été faites,toutes les anciennes données seront effacées!!!INFO!!! ", vbYesNo + vbInformation, "infos") If info1 = 7 Then Exit Sub End If End If End if En espérant que quelqu'un pourra déchiffrer ce que je veux faire... Merci à tous

RE Je viens de voir que la mise en forme que j'ai saisie dans le formulaire de réponse du site ne s'applique pas , comment faites vous pour faire apparaitre les saut de lignes ,espaces...etc . Mon message arrive tout de rang. Merci à vous

Bonjour à tous et désolé pour la multiplication de ce message.

Ouf enfin je peux transmettre ce message correctement

Merci pour la réponse Jack, je vais essayer de mieux m'expliquer.
 J'ai remis le code dans un format plus lisible, pour la boucle j'ai essayé mais au dela de 2 feuilles le msg ne s'active pas même si dans les cellules de la feuille de destination il y a des valeur.
La démarche est que la cellule B5 de la feuille formulaire est une date .
La recherche se fait à partir de la cellule B9 des feuilles et vérifie les dates puis lorsque la date est trouvée ,il faudrait vérifier les cellules de "offset(i,2)à offset(i,22),...mais là cela se corse est le programme fonctionne uniquement sur la feuille "janvier".
J'ai un problème avec la boucle
Sinon j'ai aussi une question comment dois t on coder pour une la vérification d'une cellule vide dans une feuille (la cellule contient une formule...est la je coince encore...) Je débute vraiment .....
Voici le code mis en forme:

Dim i As Integer
i = 0
    Do While Sheets("janvier").Range("B9").Offset(i, 0).Value <> Sheets("Formulaire").Range("B5").Value And i < 65
       i = i + 1
 Loop   
             If Sheets("janvier").Range("B9").Offset(i, 2).Value <> 1 Then
                Else
 i = 0
    Do While Sheets("février").Range("B9").Offset(i, 0).Value <> Sheets("Formulaire").Range("B5").Value And i < 65 
      i = i + 1 
   Loop 
                  If Sheets("février").Range("B9").Offset(i, 2).Value <> 1 Then

Dim info1 As Integer
 
   info1 = MsgBox("!!!INFO!!! Une saisie sur la même date a déjà été faites,toutes les anciennes données seront effacées!!!INFO!!! ", vbYesNo + vbInformation, "infos") 
                        If info1 = 7 Then
 Exit Sub
          End If
             End If 
               End if
 
En espérant que quelqu'un pourra déchiffrer ce que je veux faire...

Merci à tous

Bonjour,

Merci pour la réponse , je ne connaissais pas cette fonction.

Mais pour mon problème tu as raison,je vais essayer la fonction Find, car je dois chercher la valeur de la cellule B5 de ma feuille "Formulaire" dans une de mes 12 autres feuilles dans Range("B9:B74) sans me positionner dessus mais ensuite vérifier si la cellule se trouvant à droite de celle trouvée est vide ou <>1
Alors si <>1 le msgbox s'active.

Si tu peux me montrer un code en Find afin que je puisses comprendre le fonctionnement ou bien m'expliquer le principe de code...
En te remerciant
.
Bonne fin de journée..........