modification d'une cellule grace a du vba

il ne veulent pas prendre en compte le I , qui se retransforme en i il y a que le J qui ne change pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With Sheets("voyage") J = 0 Select Case classe Case "eco": J = 4 Case "affaire": J = 5 Case "premiere": J = 6 End Select i = 1 Do Until .Cells(i, 1) = "" If .Cells(i, 1) = destination.Value And .Cells(i, 2) = cmdate Then .Cells(i, J) = .Cells(i, J) - adulte - enfant - nourrisson End If i = i + 1 Loop

---

c'est a dire?
il passe en minuscule?
ou la valeur ne change pas?

de toute manière prends pour habitude de déclarer tes variables en début de procédure, ce la t'évitera pas mal de soucis
;)

mettre l'ioption explicit par défaut peut t'y aider
:)

c'est a dire : le "I" devient "i" mais le "J"reste "J" .
j'ai ajouter option explicit sa ne change rien,et pour declarer les variables je ne sais pas les quel et je ne sai pas ou il faut que je les declares si c en debut de programe ou en debut de mon boutton valider.

Tu devrais lire ceci, cela va bcp t'aider. :)

merci,
j'ai lu ce tutoré ce que j'ai compris c'est que je déclare les variables "I" t "J" ce que j'est fait
Dim I As Integer
Dim J As Integer
en debut de la programation valider .
mais le probleme c'est que d'est que je clique sur le champ nom pour rentrer un nom sa me met un message d'erreur.
je ne comprnd plus ce que je doit faire

quel message d'erreur

a quel moment exactement?

sur quelle ligne?

je ne sasi plus commen faire ni commen mi prendre sa fait 2 jour je suis sur le même probleme j'ai reussi a regler l'erreur du bug en supprimant option explicit parce que sa me demander de rentrer toute les variables.
mais sa ne veut toujours pas soustraire les champs (eco , affaire , premiere) au champs qui leur corespond dans la feuille voyageavec la destination , la designation et la date qui leurs correspond.

remplace cette ligne

Code:

---

If .Cells(I, 1) = destination.Value And .Cells(I, 2) = cmdate

---

par celle-ci

Code:

---

If .Cells(I, 1) = destination.Value And .Cells(I, 2) = CDate(Me.datecmd)

---

tu avait raison je t'en remerci,
mais il reste juste un dernier souci la valeur de nourisson ne veut pas ce déduire

;)
ben c'est pareil enleve un r à nourisson
;)

merci de ton aide sa ma beacoup aider .

de rien ,avec plaisir!