Selection de cellules via plusieurs comboBox

Bonjour,

Suite à mon precedent post
J'ai actuellement 2 comboBox qui me permet de cibler une cellule (ca ca marche)

j'ai 2 bouton :
l'un me permet d'ajouter une valeur numerique à celle existant de la cellule

l'autre à remplacer la valeur

le Hic :? c'est que quelques selection via les combox ne remplissent pas les bonnes cases....
ou ce trouve mon erreur ?

Merci d'avance



Pièce jointe 146496

bonjour dans ton code remplace:

Code:

---

1 2 3 4

'Ciblage des comboBox1 & 2 x = Sheets("Entree").Range("A1", "A22").Find(Lcb2, , , , , xlPrevious).Row y = Sheets("Entree").Range("B1", "M1").Find(Lcb1, , , , , xlPrevious).Column

---

par:

Code:

---

1 2 3 4

'Ciblage des comboBox1 & 2 x = Sheets("Entree").Range("A1", "A22").Find(Lcb2, , , , , xlValues).Row y = Sheets("Entree").Range("B1", "M1").Find(Lcb1, , , , , xlValues).Column

---

Merci rvtoulon,
ca va mieux mais il y a encore le "Type" C1 qui remplie la cellules K
tu as une idée ?

bonjour,
et comme ceci:

Code:

---

1 2 3 4

'Ciblage des comboBox1 & 2 x = Sheets("Entree").Columns(1).Find(Lcb2, , xlValues, , , , True).Row 'recherche dans colonne A y = Sheets("Entree").Rows(1).Find(Lcb1, , xlValues, , , , True).Column 'recherche dans ligne 1

---

Ca marche :)


tu peux m'expliquer les changements que tu as effectué ?
.Columns(1).Find & .Rows(1).Find cela lui donne l'emplacement de départ ?
et à quoi correspond le True ?

désolé pour ces question mais c'est pour mieux comprendre l'utilisation :p

Merci infiniment dans tout les cas, je met résolu après ta réponse
merci encore

en fait je lui ai demandé de rechercher dans la colonne et dans la ligne entière.

pour le true cela correspondait à l'option Matchcase qui précise si on doit tenir compte de la casse ou non. (pas nécessaire dans ton cas)

en fait ceci doit fonctionner:

Code:

---

1 2 3

'Ciblage des comboBox1 & 2 x = Sheets("Entree").Range("A1", "A22").Find(Lcb2, LookIn:=xlValues, lookat:=xlWhole).Row y = Sheets("Entree").Range("B1", "M1").Find(Lcb1, LookIn:=xlValues, lookat:=xlWhole).Column

---

pour en savoir plus regarde les explications tirés de cet excellent tutos page 170 de Jean-Marc RABILLOUD que tu trouveras ici

Merci pour le tuto Génial !! :)
les deux dernier codes que tu ma donné fonctionne
merci beaucoup pour tes explications

@bientôt