Discussion :

[eviuss]

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



Classeur1.zip

[rvtoulon]

bonjour dans ton code remplace:

Code :

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

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 :

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

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

[eviuss]

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

[rvtoulon]

bonjour,
et comme ceci:

Code :

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

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

[eviuss]

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

[rvtoulon]

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 :

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

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