Discussion :

[lafafmentvotre]

Bonjour
Je voudrais dans mon tableau excel que si la valeur de la cellule E3 est égale à Valeur1 alors :
H3=pomme
I3=poire
J3=raisin

que si E3 est égale à Valeur2 alors :
H3=pomme
I3=pomme
J3=poire

etc... sur 5 ou 6 valeurs en E3
et que cela se fasse sur plusieurs lignes (si pas de valeur dans cellules de colonne E alors H, I et J dans les lignes correspondantes)

Est-ce possible et si oui comment ?

Merci pour votre aide

[Ariaar]

Bonjour,

Voilà un bout de code, j'espère que ça aidera:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub ma_procedure()
 
    Dim myRange As Excel.Range
 
    Set myRange = ActiveWorkSheet.Range("E3")
    If myRange.Value = "Valeur1" Then
        change_valeur "pomme", "poire", "raisin"
    ElseIf myRange.Value = "Valeur2" Then
        change_valeur "pomme", "pomme", "poire"
    ElseIf myRange.Value = "Valeur3" Then
        ' Et ainsi de suite...
    End If
 
End Sub
 
Private Sub change_valeur(h3Valeur As String, _
                            i3Valeur As String, _
                            j3Valeur As String)
 
    ActiveWorkSheet.Range("H3").Value = h3Valeur
    ActiveWorkSheet.Range("I3").Value = i3Valeur
    ActiveWorkSheet.Range("J3").Value = j3Valeur
 
End Sub

Par contre je conseille d'utiliser des plages nommé, ça te permettra d'éviter les erreurs si une colonne est inséré

Bon courage,