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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion roross
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
Vote positif 0 Vote négatif
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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