VBA incrire dans une cellule si la cellule a cote contient
Résolu
Cocopsl
-
Cocopsl -
Cocopsl -
Bonjour,
Je souhaiterai créer un code VBA qui me permet sur une feuille précise (j'ai une dizaine de feuille) dans une cellule de la colonne P d'écrire "PAPA" SI dans la cellule de gauche sur la même ligne(col O) il y "MAMAN) et ainsi de suite sur chaque ligne.
Malgré plusieurs tests, cela ne fonctionne pas.
Je vous remercie pour votre aide.
Je souhaiterai créer un code VBA qui me permet sur une feuille précise (j'ai une dizaine de feuille) dans une cellule de la colonne P d'écrire "PAPA" SI dans la cellule de gauche sur la même ligne(col O) il y "MAMAN) et ainsi de suite sur chaque ligne.
Malgré plusieurs tests, cela ne fonctionne pas.
Je vous remercie pour votre aide.
4 réponses
-
Bonjour,
Comment déclenches tu cette macro ? à la modification de la cellule de gauche ? ou alors un bouton pour la lancer ?
Ensuite.. tu dis avoir essayé ... très bien... montres nous ce que tu as fait, et là, une personne pourra certainement t'aider à corriger ton code.
NB: pour poster du code sur le forum tu devras utiliser les balises de code.
Explications ( à lire ENTIEREMENT ! ) disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code
NB²: Tu peux aussi nous fournir un fichier d'exemple en le déposant, par exemple, sur cijoint
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers
-
Bonjour,
je déclencherai avec un bouton.
Le code que j'ai testé vient de recherche sur le net et n'est apparemment pas adapté à mon besoin.
Si cela est indispensable je vous le mettrai. -
Bonjour,
Voici la macro que j'ai écrit (certainement trop simple) :
Sub Macro1()
Range("O5:P30").Select
If Range("O") = "Accueil " > 0 Then
cel.Offset(1, 1).Value = " 1_ Accueil"
End If
End Sub
Je souhaite que dans ma colonne O quand il y a Acceuil dans une cellule dans la cellule d'a côte le mot "1_Accueil" se mette.
Je vous remercie pour votre aide.
Cocopsl-
Bon... déjà.. je t'avais indiqué que : pour poster du code sur le forum tu devras utiliser les balises de code.
Explications ( à lire ENTIEREMENT ! ) disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite, il faut BOUCLER sur chaque cellule de ta colonne "o"
par exempleFor i = 1 To 100 If Cells(i, 15).Value = "Accueil" Then Cells(i, 16).Value = "1_ Accueil" End If Next
NB: ça ne fonctionnera que si tes cellules en colonne O ne contiennent QUE le mot "Accueil"
-
-
oupss .... effectivement j'aurai dû
C'est noté pour la prochaine fois.
Merci pour votre retour.
