Boucle for to

Bonjour
Voila il y a 3 jours je posais la question suivante concernant le code qui permettait De prendre une info "X" de la feuille5 cellule A3 et de faire un commentaire dans la feuille1 pour la cellule CA59. Alors Pour une cellule ok tous fonctionne. Par contre ça fait 2 jours que je cherches une solution mais sans succès pour que ça fonctionne pour 50 cellules.Je voudrais éviter de faire du copier du code existant pour les 50 cellules. Alors si vous avez une idée, une piste ????
Voici le code que j'ai fais.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub execution() Range("CA59").ClearComments Range("BH59").ClearComments Dim a As String Dim b As String Dim c As String Dim d As String Dim e As String   If Feuil5.Cells(4, 9).Value = "X" Then a = "Accès Cocktail" End If If Feuil5.Cells(4, 10).Value = "X" Then b = "SASP" End If If Feuil5.Cells(4, 11).Value = "X" Then c = "Comité directeur" End If If Feuil5.Cells(4, 12).Value = "X" Then d = "Membre du club" End If If Feuil5.Cells(4, 13).Value = "X" Then e = "Sponsor" End If Feuil1.Range("CA59").AddComment.Text a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e With Range("CA59").Comment.Shape .Width = 130 'Largeur commentaire .Height = 90 'Hauteur .OLEFormat.Object.Font.Size = 12 'Taille du texte .OLEFormat.Object.Interior.ColorIndex = 34 'Couleur de fond .TextFrame.Characters.Font.ColorIndex = 11 'Couleur de la police .TextFrame.Characters.Font.Bold = True 'Ecriture gras .OLEFormat.Object.Font.Name = "Bangle" 'Type de police End With   End Sub

---

Merci d'avance
@+
Philippe
PS: Je suis débutant

Bonjour

je pense avoir compris mais dur dur tu as des commentaires differents selon la colonne y a t il un possibilite de les recuperer automatiquement (exemple : titre de colonne ou table de commentaire) si oui ou se trouvent-ils ? quelle ligne si ce sont de titres, quelle feuille et quelle colonne si c'est une table à part

@ te lire

Salut philguio, wilfried_42 et le forum
Si personne ne te réponds : pourquoi ?
- ils n' ont pas envie : la plage, les filmmes, etc... pas grand chose à faire :P
- Ils ne peuvent pas : Problèmes techniques... agaçant mais pareil, pas de possibilités d'intervenir. Manque d'infos : si ce qui est dans ta tête ou ton mivro y reste, pourquoi de l'autre côté ce ne serait pas pareil ?
T'es assez ancien sur le forum pour regarder quand tu as eu des réponses rapides et quand les postes ne retourne que des questions, des solutions hors sujet ou inadaptables parce que mal comprises.

Ce qu'il faut fournir :
Bonnées : précises, concises et identifiables il faut que toi, tu puisses identifie les données dans les réponses. et il faut le nom des feuilles, l'adresses des plages etc
But : Ce que doit faire la macro
Méthodes : je vérifie que B20 est Vrai, etc., j'utilise un module lié ou une macro automatique...

Le but des dépanneurs b'est pas d'espionner, mais de remer la matière qui sert habituellement à maintenir l'écart entre les 2 oreilles.

Ton sujet répond-t-il a ces beoins ? Un personne extérieur au problème peut*elle répondre sans autres précisions ?

Pour ta macrp : il existe 2 sybtaxes pour l'instruction if. avec une seule instruction en réponse, tu peux utiliser l'autre :

Code:

---

1 2 3 4 5

If Feuil5.Cells(4, 9).Value = "X" Then a = "Accès Cocktail" If Feuil5.Cells(4, 10).Value = "X" Then b = "SASP" If Feuil5.Cells(4, 11).Value = "X" Then c = "Comité directeur" If Feuil5.Cells(4, 12).Value = "X" Then d = "Membre du club" If Feuil5.Cells(4, 13).Value = "X" Then e = "Sponsor"

---

A+
PS : ça fait pas un peu donneur de leçon ? :oops:

Merci pour les infos, mais je vais faire autrement
@+
encore merci
Philippe