Microsoft 365 macro vérif des données, et si OK accès à la page suivante

[MG_000]

Bonjour tout le monde

je suis en train de créer un formulaire pour le travail
sur le 1er onglet : je demande les informations générales des clients
sur le 2eme onglet : la personne devra sélectionner les articles dont elle a besoin

Je souhaiterais une macro VBA qui permette :
1 - de vérifier que toutes les infos générales soient bien saisies (en gros qu'il ne reste pas de "'/") => s'il manque des infos, une boite à message s'affiche
2 - si c'est bien saisi, de pouvoir accéder au 2eme onglet

Cette macro sera ajoutée en bas du 1er onglet

pour l'instant voici ce que j'ai pu écrire niveau VBA (je n'ai aucune formation VBA...)

Sub Verif()

'macro vérif saisie'

If Range("C7") = "/" And Range("H7") = "/" And Range("C10") = "/" And Range("C12") = "/" And Range("C18") = "/" And Range("G18") = "/" And Range("C20") = "/" And Range("G20") = "/" Then

MsgBox "Des informations sont manquantes !"

Else: Call Envoyer_PDF("EnvoyerCourriel")
End If

End Sub


merci beaucoup pour votre aide

 

[sylvanu]

Bonjour MG, et bienvenu sur XLD,
En utilisant un ET vous émettrez un message si TOUTES les cellules contiennent "/".
En faisant :

If Range("C7") = "/" Or Range("H7") = "/" Or Range("C10") = "/" Or Range("C12") = "/" Or Range("C18") = "/" Or Range("G18") = "/" Or Range("C20") = "/" Or Range("G20") = "/" Then

vous émettrez un message si une ou plusieurs les cellules contiennent "/".

 

[MG_000]

Bonjour MG, et bienvenu sur XLD,
En utilisant un ET vous émettrez un message si TOUTES les cellules contiennent "/".
En faisant :

If Range("C7") = "/" Or Range("H7") = "/" Or Range("C10") = "/" Or Range("C12") = "/" Or Range("C18") = "/" Or Range("G18") = "/" Or Range("C20") = "/" Or Range("G20") = "/" Then

vous émettrez un message si une ou plusieurs les cellules contiennent "/".

merci beaucoup ! En effet ça sera mieux

 

[MG_000]

Re

Si des informations sont manquantes, je souhaite que le reste des macro ne s'active pas.
existe il un moyen pour ça ? En gros je veux forcer l'utilisateur à remplir correctement la partie info pour qu'il accède ensuite à l'onglet demande.

Merci

Sub Verif()

If Range("C7") = "/" Or Range("H7") = "/" Or Range("C10") = "/" Or Range("C12") = "/" Or Range("C18") = "/" Or Range("G18") = "/" Or Range("C20") = "/" Or Range("G20") = "/" Then

MsgBox "Des informations sont manquantes !"

Else: Call Feuille_suivante
End If
End Sub
Sub Feuille_suivante()
Worksheets("Demande").Visible = True
Worksheets("Demande").Activate
End Sub

Sub Envoi_demande()
Call Verif
Call Feuille_suivante
End Sub

 

[sylvanu]

Re,
Si j'ai bien compris une seule macro suffit.
En l'appelant on vérifie la présence d'un "/". S'il n'y en a, on sort sinon on continue.
Et au lieu d'appeler Envoi_demande vous appelez Verif.

Sub Verif()
    If Range("C7") = "/" Or Range("H7") = "/" Or Range("C10") = "/" Or Range("C12") = "/" Or Range("C18") = "/" Or Range("G18") = "/" Or Range("C20") = "/" Or Range("G20") = "/" Then
        MsgBox "Des informations sont manquantes !" & Chr(10) & "Veuillez les compléter."
    Else
        Worksheets("Demande").Visible = True
        Worksheets("Demande").Activate
    End If
End Sub

 

[MG_000]

Re,
Si j'ai bien compris une seule macro suffit.
En l'appelant on vérifie la présence d'un "/". S'il n'y en a, on sort sinon on continue.
Et au lieu d'appeler Envoi_demande vous appelez Verif.

Sub Verif()
    If Range("C7") = "/" Or Range("H7") = "/" Or Range("C10") = "/" Or Range("C12") = "/" Or Range("C18") = "/" Or Range("G18") = "/" Or Range("C20") = "/" Or Range("G20") = "/" Then
        MsgBox "Des informations sont manquantes !" & Chr(10) & "Veuillez les compléter."
    Else
        Worksheets("Demande").Visible = True
        Worksheets("Demande").Activate
    End If
End Sub

merci beaucoup ! ça fonctionne nickel