Commande si, msgbox ou ajouter une feuille de calcul

Bonjour,

Je débute en VBA et j'aimerais que pour une commande si, si ma condition est réalisée afficher une msgbox, sinon ajouter une nouvelle feuille se nommant automatiquement avec le texte d'une cellule

Ma condition est: Si le texte de la cellule I4 est présent dans la plage de données de ma feuille "Récapitulatif" Colonne A

- Afficher une msg box demandant de copier les données

- Sinon, créer une nouvelle feuille de calcul se nommant Site (valeur de I4)

Merci de votre aide

Bonjour,

ça devrait donner quelque chose comme ça :

if not Range("a:a").find(range("i4"),lookat:=xlwhole) is nothing Then
    msgbox()
else
    thisworkbook.sheets.add()
end if

Merci beaucoup, ça fonctionne !

De rien!

Merci d'avoir passé le sujet en résolu

Rechercher des sujets similaires à "commande msgbox ajouter feuille calcul"