Résultats de la recherche

Bonjour, débutant en programmation VBA, je cherche a créer un code vba qui me permette d'ajouter des pièces jointes a un mail via une msgbox yesno Je m'explique j'ai un message a envoyer avec plusieurs des feuilles jointe a mettre selon les cas j arrive a créer les différente messages et a...

Bonjour, je souhaite interdire l'impression de mon fichier Excel si ce dernier n'a pas était au préalable enregistré. merci de votre aide

Personne pour m'aider ?

pour ce qui est des case en jaune ton idée était bonne mais seulement certaine case on un caractère obligatoire et ces celle la que je veux mettre en rouge si elle ne sont pas rempli

bonjour le mot de passe de l'onglet est luc j'ai reussi a ce que la casse e11 passe en rouge si elle n'est pas rempli If Range("e11").Value = "" Then MsgBox "Enregistrement impossible MANQUE LE TYPE DE RENDEZ-VOUS", vbCritical, "Manque donnée !": ActiveSheet.Range("e11").Interior.Color = vbRed...

Merci tes explications sont très claire effectivement c'est and donc j'ai besoin une dernière demande qui pour moi serait la cerise sur le gâteaux est il posible que la cellule vide change de couleur afin de montrer a l'utilisateur la cellule a remplir pour continue l'enregistrement ex: If...

merci phil69970 pour ton aide si j'ai bien compris or prend en compte l'une ou l'autre des conditions ce que je recherche c'est que les deux condition soit remplis une valeur dans la case e11 et aucune valeur dans la case ai11 si je met and a la place de or sa ne marche pas

j ai encore une petite question comment cumule deux conditions pour areter l'enregistrement ex : qlorsque les cases(e11:p12 ) contiennent un certain texte et que la case a11 soit vide

Merci ca marche nickel et encore desolle pour l'ecriture en majuscule

VOLIA AVEC LE FICHIER NETOYER MA QUESTION RESTE LA MEME JE SOUHAITE CREE UN MESSAGE D'ALERTE QUI BLOQUE L' ENREGISTREMENT SI CERTAINES CASE OU GROUPE DE CASES NE SONT PAS REMPLI EX :SI LE GROUPE DE CASE (AI11:AQ12) N'EST PAS REMPLI L'ENREGISTREMENT DU FICHIER NE SE FAIT PAS ET UN MASAGE...

bonjour je souhaite crée en vba un message d'alerte ( texte de mon choix) dans le fichier ci joint pour le groupe de case (ai11:aq12) lorsque ce dernier et vide par avance merci

Bonjour je souhaite créer un formulaire VBA pour aller copier des donnes dans un pdf sous foxit et les coller dans un fichier Excell a un emplacement défini par avance merci

Bonjour je cherche un code pour fermer le fichier excel que je crée en lançant l’enregistrement tout en gardant ouvert le fichier d'origine ci joint mon code d'avance merci Sub Enregistrer2() Dim extension As String Dim chemin As String Dim nomfichier As String With...

merci Staple1600 c 'est exactement ce donc j'avais bession avous deux vous m'aves enleve une groose epine du pied encore merci

désole pour le nom mais c'est ce qui apparaît et oui j'ai vu que cela efface tout alors que moi je cherche qu'a supprimer certaine partie de ma feuille c'est a dire uniquement les 6 photos situe dans les emplacements de la macro donne dans le message #11

je me sui peut etre ma exprimer j'ai six emplacement de photos que je peu remplir ou pas leffecement fpnctionne tres bien des qu'il y les 6 photos mais si lin'yen a qu'une cela ne fonctionne pas

Desole staplle 1600 j ai fait ton test et il n'efface effectivement que les images en colonne b et g et moi j'ai des photo en c k h o en plus de b et g et je ne suis pas parvenu a tous concilie mais si tu a une solution pour tout effacer je suis preneur

Bonjour0 vous deux et encore merci pour vos idées la solution de paticktoulon fonctionne parfaitement j'arrive a mettre mes six phots au emplacements prévu par contre effacement rencontre un bug des que l'emplacement de mes photos et vide MACRO POUR METTRE AFFICHE JUSQU’À SIX PHOTOS (chaque...

Bonjour stapple1600 la msgbox me dit $C$150

Bonjour la photo est mise automatiquement a cet emplacement grâce a la macro suivante: Sub image1() Range("C149:H160").Select Dim ficimg As String, Ad As String Ad = Selection.Address ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix du fichier If ficimg = Faux...