Selctionné une cellule a partir ComboBox sur Range("A2:V38")

R

roross

XLDnaute Junior
Salut;
Je veux une autre méthode pour appliqué ComboBox1_Change()

Private Sub ComboBox1_Change()

If ComboBox1 = "A2" Then
Range("A2").Select
ElseIf ComboBox1 = "A4" Then
Range("A4").Select
ElseIf ComboBox1 = "A6" Then
Range("A6").Select
ElseIf ComboBox1 = "A8" Then
Range("A8").Select
ElseIf ComboBox1 = "A10" Then
Range("A10").Select
ElseIf ComboBox1 = "A12" Then
Range("A12").Select
ElseIf ComboBox1 = "A14" Then
Range("A14").Select
ElseIf ComboBox1 = "A16" Then
Range("A16").Select
ElseIf ComboBox1 = "A18" Then
Range("A18").Select
ElseIf ComboBox1 = "A20" Then
Range("A20").Select
ElseIf ComboBox1 = "A22" Then
Range("A22").Select
ElseIf ComboBox1 = "A24" Then
Range("A24").Select
ElseIf ComboBox1 = "A26" Then
Range("A26").Select
ElseIf ComboBox1 = "A28" Then
Range("A28").Select
ElseIf ComboBox1 = "A30" Then
Range("A30").Select
ElseIf ComboBox1 = "A32" Then
Range("A32").Select
ElseIf ComboBox1 = "A34" Then
Range("A34").Select
ElseIf ComboBox1 = "A36" Then
Range("A36").Select
ElseIf ComboBox1 = "A38" Then
Range("A38").Select

ElseIf ComboBox1 = "D2" Then
Range("D2").Select
ElseIf ComboBox1 = "D4" Then
Range("D4").Select
ElseIf ComboBox1 = "D6" Then
Range("D6").Select
ElseIf ComboBox1 = "D8" Then
Range("D8").Select
ElseIf ComboBox1 = "D10" Then
Range("D10").Select
ElseIf ComboBox1 = "D12" Then
Range("D12").Select
ElseIf ComboBox1 = "D14" Then
Range("D14").Select
ElseIf ComboBox1 = "D16" Then
Range("D16").Select
ElseIf ComboBox1 = "D18" Then
Range("D18").Select
ElseIf ComboBox1 = "D20" Then
Range("D20").Select
ElseIf ComboBox1 = "D22" Then
Range("D22").Select
ElseIf ComboBox1 = "D24" Then
Range("D24").Select
ElseIf ComboBox1 = "D26" Then
Range("D26").Select
ElseIf ComboBox1 = "D28" Then
Range("D28").Select
ElseIf ComboBox1 = "D30" Then
Range("D30").Select
ElseIf ComboBox1 = "D32" Then
Range("D32").Select
ElseIf ComboBox1 = "D34" Then
Range("D34").Select
ElseIf ComboBox1 = "D36" Then
Range("D36").Select
ElseIf ComboBox1 = "D38" Then
Range("D38").Select

ElseIf ComboBox1 = "G2" Then
Range("G2").Select
ElseIf ComboBox1 = "G4" Then
Range("G4").Select
ElseIf ComboBox1 = "G6" Then
Range("G6").Select
ElseIf ComboBox1 = "G8" Then
Range("G8").Select
ElseIf ComboBox1 = "G10" Then
Range("G10").Select
ElseIf ComboBox1 = "G12" Then
Range("G12").Select
ElseIf ComboBox1 = "G14" Then
Range("G14").Select
ElseIf ComboBox1 = "G16" Then
Range("G16").Select
ElseIf ComboBox1 = "G18" Then
Range("G18").Select
ElseIf ComboBox1 = "G20" Then
Range("G20").Select
ElseIf ComboBox1 = "G22" Then
Range("G22").Select
ElseIf ComboBox1 = "G24" Then
Range("G24").Select
ElseIf ComboBox1 = "G26" Then
Range("G26").Select
ElseIf ComboBox1 = "G28" Then
Range("G28").Select
ElseIf ComboBox1 = "G30" Then
Range("G30").Select
ElseIf ComboBox1 = "G32" Then
Range("G32").Select
ElseIf ComboBox1 = "G34" Then
Range("G34").Select
ElseIf ComboBox1 = "G36" Then
Range("G36").Select
ElseIf ComboBox1 = "G38" Then
Range("G38").Select

ElseIf ComboBox1 = "J2" Then
Range("J2").Select
ElseIf ComboBox1 = "J4" Then
Range("J4").Select
ElseIf ComboBox1 = "J6" Then
Range("J6").Select
ElseIf ComboBox1 = "J8" Then
Range("J8").Select
ElseIf ComboBox1 = "J10" Then
Range("J10").Select
ElseIf ComboBox1 = "J12" Then
Range("J12").Select
ElseIf ComboBox1 = "J14" Then
Range("J14").Select
ElseIf ComboBox1 = "J16" Then
Range("J16").Select
ElseIf ComboBox1 = "J18" Then
Range("J18").Select
ElseIf ComboBox1 = "J20" Then
Range("J20").Select
ElseIf ComboBox1 = "J22" Then
Range("J22").Select
ElseIf ComboBox1 = "J24" Then
Range("J24").Select
ElseIf ComboBox1 = "J26" Then
Range("J26").Select
ElseIf ComboBox1 = "J28" Then
Range("J28").Select
ElseIf ComboBox1 = "J30" Then
Range("J30").Select
ElseIf ComboBox1 = "J32" Then
Range("J32").Select
ElseIf ComboBox1 = "J34" Then
Range("J34").Select
ElseIf ComboBox1 = "J36" Then
Range("J36").Select
ElseIf ComboBox1 = "J38" Then
Range("J38").Select

ElseIf ComboBox1 = "M2" Then
Range("M2").Select
ElseIf ComboBox1 = "M4" Then
Range("M4").Select
ElseIf ComboBox1 = "M6" Then
Range("M6").Select
ElseIf ComboBox1 = "M8" Then
Range("M8").Select
ElseIf ComboBox1 = "M10" Then
Range("M10").Select
ElseIf ComboBox1 = "M12" Then
Range("M12").Select
ElseIf ComboBox1 = "M14" Then
Range("M14").Select
ElseIf ComboBox1 = "M16" Then
Range("M16").Select
ElseIf ComboBox1 = "M18" Then
Range("M18").Select
ElseIf ComboBox1 = "M20" Then
Range("M20").Select
ElseIf ComboBox1 = "M22" Then
Range("M22").Select
ElseIf ComboBox1 = "M24" Then
Range("M24").Select
ElseIf ComboBox1 = "M26" Then
Range("M26").Select
ElseIf ComboBox1 = "M28" Then
Range("M28").Select
ElseIf ComboBox1 = "M30" Then
Range("M30").Select
ElseIf ComboBox1 = "M32" Then
Range("M32").Select
ElseIf ComboBox1 = "M34" Then
Range("M34").Select
ElseIf ComboBox1 = "M36" Then
Range("M36").Select
ElseIf ComboBox1 = "M38" Then
Range("M38").Select

ElseIf ComboBox1 = "P2" Then
Range("P2").Select
ElseIf ComboBox1 = "P4" Then
Range("P4").Select
ElseIf ComboBox1 = "P6" Then
Range("P6").Select
ElseIf ComboBox1 = "P8" Then
Range("P8").Select
ElseIf ComboBox1 = "P10" Then
Range("P10").Select
ElseIf ComboBox1 = "P12" Then
Range("P12").Select
ElseIf ComboBox1 = "P14" Then
Range("P14").Select
ElseIf ComboBox1 = "P16" Then
Range("P16").Select
ElseIf ComboBox1 = "P18" Then
Range("P18").Select
ElseIf ComboBox1 = "P20" Then
Range("P20").Select
ElseIf ComboBox1 = "P22" Then
Range("P22").Select
ElseIf ComboBox1 = "P24" Then
Range("P24").Select
ElseIf ComboBox1 = "P26" Then
Range("P26").Select
ElseIf ComboBox1 = "P28" Then
Range("P28").Select
ElseIf ComboBox1 = "P30" Then
Range("P30").Select
ElseIf ComboBox1 = "P32" Then
Range("P32").Select
ElseIf ComboBox1 = "P34" Then
Range("P34").Select
ElseIf ComboBox1 = "P36" Then
Range("P36").Select
ElseIf ComboBox1 = "P38" Then
Range("P38").Select

ElseIf ComboBox1 = "S2" Then
Range("S2").Select
ElseIf ComboBox1 = "S4" Then
Range("S4").Select
ElseIf ComboBox1 = "S6" Then
Range("S6").Select
ElseIf ComboBox1 = "S8" Then
Range("S8").Select
ElseIf ComboBox1 = "S10" Then
Range("S10").Select
ElseIf ComboBox1 = "S12" Then
Range("S12").Select
ElseIf ComboBox1 = "S14" Then
Range("S14").Select
ElseIf ComboBox1 = "S16" Then
Range("S16").Select
ElseIf ComboBox1 = "S18" Then
Range("S18").Select
ElseIf ComboBox1 = "S20" Then
Range("S20").Select
ElseIf ComboBox1 = "S22" Then
Range("S22").Select
ElseIf ComboBox1 = "S24" Then
Range("S24").Select
ElseIf ComboBox1 = "S26" Then
Range("S26").Select
ElseIf ComboBox1 = "S28" Then
Range("S28").Select
ElseIf ComboBox1 = "S30" Then
Range("S30").Select
ElseIf ComboBox1 = "S32" Then
Range("S32").Select
ElseIf ComboBox1 = "S34" Then
Range("S34").Select
ElseIf ComboBox1 = "S36" Then
Range("S36").Select
ElseIf ComboBox1 = "S38" Then
Range("S38").Select

ElseIf ComboBox1 = "V2" Then
Range("V2").Select
ElseIf ComboBox1 = "V4" Then
Range("V4").Select
ElseIf ComboBox1 = "V6" Then
Range("V6").Select
ElseIf ComboBox1 = "V8" Then
Range("V8").Select
ElseIf ComboBox1 = "V10" Then
Range("V10").Select
ElseIf ComboBox1 = "V12" Then
Range("V12").Select
ElseIf ComboBox1 = "V14" Then
Range("V14").Select
ElseIf ComboBox1 = "V16" Then
Range("V16").Select
ElseIf ComboBox1 = "V18" Then
Range("V18").Select
ElseIf ComboBox1 = "V20" Then
Range("V20").Select
ElseIf ComboBox1 = "V22" Then
Range("V22").Select
ElseIf ComboBox1 = "V24" Then
Range("V24").Select
ElseIf ComboBox1 = "V26" Then
Range("V26").Select
ElseIf ComboBox1 = "V28" Then
Range("V28").Select
ElseIf ComboBox1 = "V30" Then
Range("V30").Select
ElseIf ComboBox1 = "V32" Then
Range("V32").Select
ElseIf ComboBox1 = "V34" Then
Range("V34").Select
ElseIf ComboBox1 = "V36" Then
Range("V36").Select
ElseIf ComboBox1 = "V38" Then
Range("V38").Select
End If

End Sub
 
Trier par date Trier par votes
Dranreb

Dranreb

XLDnaute Barbatruc
Re : Selctionné une cellule a partir ComboBox sur Range("A2:V38")

Bonjour.
Il faut que vous appreniez désormais à le faire vous même à partir des solutions de problèmes similaires qu'on vous propose.
Là je ne vois pas ce qui empêcherait de faire tout simplement Range(ComboBox1.Text).Select.
Mais quelque part, j'ai la vague impression que c'est toute votre application qui serait à revoir à partir de 0.
À +
 
Vote positif 0 Vote négatif
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Selctionné une cellule a partir ComboBox sur Range("A2:V38")

Bonjour à tous

phlaurent:
Je suppute que roross vient d'entrer au noviciat d'XLD, et qu'il connait pas encore son missel de VBulletin sur le bout des ongles ;)

roross: Sieur kjin t'a donné une réponse sur l'un de tes trois fils, je te laisse retrouver lequel ;)
 
Vote positif 0 Vote négatif
R

roross

XLDnaute Junior
Re : Selctionné une cellule a partir ComboBox sur Range("A2:V38")

Bonjour; phlaurent55
Non si pas les même questions
* 1er question: Selctionné une cellule a partir de ComboBox Range("A2:V38"), je cherche de déplacé de cellule a autre cellue par ComboBox comme l'exemple suivi
* 2éme questions: je cherche de faire une boucle pour Range("A2:V38") comme l'exemple ci-joint

il ma réponde Dranreb pour la 2éme question ça marche bien avec moi

merci
 
Vote positif 0 Vote négatif

Discussions similaires

R
  • Question
Boucle pour Range("A2:V38")
Réponses
2
Affichages
6 K
roross
R
R
  • Question
Comment créer une boucle pour plage de cellules
Réponses
3
Affichages
1 K
Papou-net
Papou-net
R
  • Question
Compteur sur range("A2:V38")
2
Réponses
17
Affichages
13 K
roross
R
R
  • Question
Compteur d'ecriture sur range("A2:V38")
Réponses
2
Affichages
6 K
phlaurent55
phlaurent55
H
  • Question
Trop grand...
2
Réponses
18
Affichages
14 K
Hollowman06
H
M
  • Question
Garder données dans USERFORM et dans classeur excel
Réponses
6
Affichages
2 K
YANN-56
YANN-56
TheProdigy
  • Question
Simplification code VBA
Réponses
3
Affichages
2 K
TheProdigy
TheProdigy
TheProdigy
  • Question
Faciliter language VB
Réponses
3
Affichages
1 K
TheProdigy
TheProdigy

Membres actuellement en ligne

17 membres et 123 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 211
Messages
2 086 300
Membres
103 173
dernier inscrit
Cerba95