VBA incrire dans une cellule si la cellule a cote contient

Résolu/Fermé
Cocopsl - 21 oct. 2021 à 16:45
 Cocopsl - 22 oct. 2021 à 09:01
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.

4 réponses

jordane45 Messages postés 38347 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 décembre 2024 4 719
21 oct. 2021 à 17:33
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
0
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.
0
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
0
jordane45 Messages postés 38347 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 décembre 2024 4 719
22 oct. 2021 à 08:37
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 exemple
For 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"
0
oupss .... effectivement j'aurai dû
C'est noté pour la prochaine fois.

Merci pour votre retour.
0