Remplir cellule en fonction d'une valeur définie

Bonjour,

j'ai fait ce petit bout de code avec un principe pourtant simple :

Sub test()

    If Range("A10").Value = "Premier choix" Then Range("C10").Value = Range("G1").Value

End Sub

Je voudrais que si la cellule A10 contient "Premier choix" , la cellule C10 prenne la valeur de la cellule G1

Je vois bien que ce n'est pas correct mais j'ai du mal à faire mieux, quelqu'un aurait la solution SVP?

Merci !

Bonjour,

If Range("A10").Value = "Premier choix" Then
    Range("C10").Value = Range("G1").Value
    End If

à copier : entre ton "Sub test()" et ton "end sub"

à part le deuxième range à la ligne suivante et le end if qui manque tu n'étais vraiment pas loin.

Bonjour,

merci pour la réponse. Etonnement ça ne fonctionne pas... A noter que dans la cellule C10, le "Premier choix" est entré par une liste déroulante (mais même en essayant de taper à la main, rien ne se passe).

Voici le code en entier :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Sub test()

If Range("A10").Value = "Premier choix" Then
    Range("C10").Value = Range("G1").Value
    End If

End Sub

Qu'est-ce qu'il ne va pas ?

Merci pour ton aide en tout cas.

TRNX a écrit :

Bonjour,

merci pour la réponse. Etonnement ça ne fonctionne pas... A noter que dans la cellule C10, le "Premier choix" est entré par une liste déroulante (mais même en essayant de taper à la main, rien ne se passe).

Qu'est-ce qu'il ne va pas ?

Merci pour ton aide en tout cas.

On se mélange là ??? Premier choix n'est pas sensé être en A10 ? ?

Avec un fichier exemple se sera peut être plus compréhensible pour moi.

Vérifier dans la liste déroulante : l'orthographe exacte ; si il n'y a pas un espace en trop (avant, après, )

Majuscule ? accent ? ........

Pardon je voulais dire A10!

Voici le fichier parce que je ne comprends pas ce qui bloque (j'ai un peu modifié le code c'était plus simple) :

De mon coté ta macro fonctionne J'ai bien : "A" ( le contenu de G1) dans la CASE "C10"

Bonjour,

j'ai réussi à faire fonctionner le programme mais qu'avec une macro. Ca nécessite donc d'appuyer sur un bouton, ce que je voulais éviter (je voudrais que ça se fasse seul). Je vais continuer à chercher quand même.

Merci pour l'aide en tout cas!

TRNX a écrit :

Bonjour,

j'ai réussi à faire fonctionner le programme mais qu'avec une macro. Ca nécessite donc d'appuyer sur un bouton, ce que je voulais éviter (je voudrais que ça se fasse seul). Je vais continuer à chercher quand même.

Merci pour l'aide en tout cas!

Re bonjour,

Dans ce cas, utilises ton code dans l'évenement de la feuille et pas dans une macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A10").Value = Range("A1") Then
    Range("C10").Value = Range("G1").Value
    Else
    Range("C10").Value = ""
    End If
End Sub

Ps comme tu as une liste de Choix tu seras obligé de cliquer sur n'importe quelle cellule après avoir changé de sélection en A10

Bonjour,

ça marche merci j'ai pu compléter le programme, c'est exactement ce que je voulais !

Encore merci pour l'aide !

Bonne journée

TRNX a écrit :

Bonjour,

ça marche merci j'ai pu compléter le programme, c'est exactement ce que je voulais !

Encore merci pour l'aide !

Bonne journée

Bien content pour toi.