Contenu récent par Estellepokis

Super, ça marche ! J'ai encore une question! Sur ce programme qui permettait de changer le windings de couleur quand on cliquait sur la cellule, comment je peux exempter une CASE de la macro ? J'ai essayé plusieurs sol et ça ne marche pas... Private Sub Worksheet_SelectionChange(ByVal...

Y a pas de débogage, mais quand il ouvre outlook il n'y a pas d'adresses mails malgré certains windings rouges. Je pense que ça vient d'un problème de détection de couleurs non ?

Pour l'instant j'ai fait ce code qui me permet d'ouvrir Outlook avec tous les destinataires de la colonne J (là où il y a toutes les adresses mails) et de les mettre en copie caché. Sub Bouton4_Cliquer() Dim OutlookApp As Object Dim OutlookMail As Object Dim destinataire As String Dim A As...

Je peux t'envoyer un excel vide d'informations mais qui a la même forme si ça peut t'aider ? Moi je cherche encore comment faire comprendre au bouton, qu'il garde en mémoire les adresses mails des Windings rouges ? Ensuite j'ouvrirai la boite outlook avec les adresses mails récoltées, mais...

Je ne peux pas envoyer le fichier rempli, je te joins la capture du TCD. Sinon je peux t'envoyer un fichier, exactement le même mais vide des informations ?

Effectivement avec cela ça marche ! Maintenant il faut que je code la macro qui permet de récolter toutes les adresses mails qui sont sur une ligne ou le windings 254 est rouge. Pour ça j'ai créé le bouton "Envoyer mail", je vais (essayer) de coder la macro. Mais je vais avoir des macros...

A celle là : If Not Intersect(Target, Range("N:N")) Is Nothing Then

Avec ce code il me dit "Objet requis" Mais pourtant je n'ai aucune variable à annoncer ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("N:N")) Is Nothing Then Sub Macro1() Range("N:N").Select With Selection.Font .Color = -16776961 .TintAndShade = 0 End With End Sub End If End Sub J'ai fait ça pour...

D'accord. Donc dans la BDD j'ai mis le Wingdings 254 à toutes les lignes de la colonne mail, j'ai créé une macro qui le change de couleur dans le TDC. Dans VBA il faut maintenant que je fasse un code : Si j'appuie sur le Wingdings 254 de telle ligne dans le TDC => la macro s'active => le...

Désolée je débute... je n'ai pas bien compris ? Dans la BDD je mets un symbole ? Mais comment dans le TDC comprendre que cette ligne a été sélectionné ?

Bonjour, Je suis débutante en Excel, macro, VBA... J'ai une question pour connaitre une procédure à un projet que j'ai. J'ai un tableau croisé dynamique avec 3 filtres. A la sortie il va m'afficher le nom, prénom et adresse mail de différentes personnes. Jusqu'à présent, on pouvait appuyer...