Discussion :

[fernandezalain]

bonjour, nouveau petit souci
j'ai une liste de choix et selon le resultat de celui ci je rajoute des jours a une cellule date (enfin j'essaie !!!)
voici mon code

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
25
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Identification")
If Not Application.Intersect(Target, Range("D39")) Is Nothing Then
 
F = .Range("D39").Value
 'MsgBox F
'MsgBox .Range("B4").Value
Select Case F
 
    Case F = ""
        'Exit Sub
 
    Case F = "3mois"
      .Cells("C39") = .Range("B4").Value + 90
 
    MsgBox .Range("B4").Value + 90
 
    'Case F = "6mois"
 
    'Case F = "1an"
 
 End Select
 End If
 End With
End Sub

merci

[Patrice740]

Bonjour,

Dans ce cas, le With ... est inutile.

Au lieu de :

Code :

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

1
2
    Case F = "3mois"
     Cells("C39").Value = Range("B4").Value + 90

Mettre :

Code :

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

1
2
   Case "3mois"
      Range("C39").Value = Range("B4").Value + 90

[Philippe Tulliez]

Bonjour,
Personnellement, je commencerais par placer des données numériques dans les cellules (3 au lieu de "3Mois") cela faciliterais grandement le code. Il suffirait de multiplier la valeur contenue dans la cellule par 30.
Avec un format personnalisé tel que 0" Mois", il est possible d'avoir une valeur numérique dans une cellule et d'afficher un texte

La lecture de ce billet Donnez du cachet à vos données à l’aide des formats personnalisés d’excel sera un avant goût de cet excellent tutoriel Création, enregistrement et fusion de formats personnalisés

[fernandezalain]

Bonjour,

Dans ce cas, le With ... est inutile.

Au lieu de :

Code :

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

1
2
    Case F = "3mois"
     Cells("C39").Value = Range("B4").Value + 90

Mettre :

Code :

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

1
2
   Case "3mois"
      Range("C39").Value = Range("B4").Value + 90

il faut bien mettre une variable de recuperation de valeur non pour select case ??

[patricktoulon]

re

Code :

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

1
2
Case F = "3mois"
     Cells("C39").Value =val(Range("B4").Value) + 90

[fernandezalain]

re

Code :

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

1
2
Case F = "3mois"
     Cells("C39").Value =val(Range("B4").Value) + 90

merci patrick mais je ne recupere pas valeur voulue

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
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Identification")
If Not Application.Intersect(Target, Range("D39")) Is Nothing Then
 
F = .Range("D39").Value
 'MsgBox F
'MsgBox .Range("B4").Value
Select Case F
    'Case F = ""
        'Exit Sub
       Case F = "3mois"
      Cells("C39").Value = Val(Range("B4").Value)
       MsgBox .Range("B4").Value + 90
 
    'Case F = "6mois"
 
    'Case F = "1an"
  End Select
 End

[fernandezalain]

suite et fin
merci a vous
le probleme de la boucle etait que je testais en ecrivant Case F= au lieu de Case IS

Code :

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

1
2
3
4
5
Select Case F
    Case Is = ""
        Exit Sub
       Case Is = "3mois"
       MsgBox F