naviguer d'une feuille à l'autre via choix de combobox

ARNAUD ZIRIPE

XLDnaute Occasionnel

• 20 Février 2015

• #2

Re : naviguer d'une feuille à l'autre via choix de combobox

j'ai oublié de vous dire que je souhaiterais aussi un affichage animé et en plein écran pou l'uf
merci d'avance.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Février 2015

• #3

Re : naviguer d'une feuille à l'autre via choix de combobox

bonjour ARNAUD

déja il faut charger la combo...2 je demarre a la 2 feuille

Code:

Private Sub UserForm_Initialize()
  For i = 2 To Sheets.Count
  ComboBox2.AddItem Sheets(i).Name
  Next i
 'ect..
End Sub

ensuite

Dim x 'en debut module user

Code:

Private Sub ComboBox2_Change()
 x = ComboBox2
End Sub

puis j'utilise with tu remarque le point sur chaque ligne

Code:

Private Sub CommandButton2_Click()
Dim derligne As Integer
With Sheets(x)
derligne = .Range("A456541").End(xlUp).Row + 1
.Cells(derligne, 1) = ComboBox1.Value
'ect..
End With
End Sub

attention

Private Sub UserForm_Initialize() & non Private Sub UserForm1_Initialize()

idem activate

pour le gif facile plein exemple sur le forum

 

Dernière édition: 21 Février 2015

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Février 2015

• #4

Re : naviguer d'une feuille à l'autre via choix de combobox

re, en plus propre le code brut

donne cela

Dim x, z As Long, i As Byte, y As Byte
Private Sub UserForm_Initialize()
For i = 2 To Sheets.Count
ComboBox2.AddItem Sheets(i).Name
Next i
'ect..
End Sub
Private Sub ComboBox2_Change()
x = ComboBox2
End Sub
Private Sub CommandButton2_Click()
If MsgBox("Confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
With Sheets(x)
z = .Cells(Rows.Count, 1).End(3)(2).Row
.Cells(z, 1) = ComboBox1.Value
For y = 1 To 16: .Cells(z, y + 1) = Me("TextBox" & y).Value: Next y
End With
End If
'ect..
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

ARNAUD ZIRIPE

XLDnaute Occasionnel

• 21 Février 2015

• #5

Re : naviguer d'une feuille à l'autre via choix de combobox

je n'arrive pas à le faire malgré le code reçu de ta part.
Pourrais tu utilisé le fichier joint pour m'aider?
merci d'avance.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Février 2015

• #6

Re : naviguer d'une feuille à l'autre via choix de combobox

re ,

j'ai pas tous remis!! mais seulement essentiel
la combo...1 je la charge par code mieux dans ton cas a mon avis plus facile a manipuler apres

 

Pièces jointes

• essai navigation (1).xlsm

  29.3 KB · Affichages: 38
• essai navigation (1).xlsm

  29.3 KB · Affichages: 38
• essai navigation (1).xlsm

  29.3 KB · Affichages: 44

Vote positif 0 Vote négatif

ARNAUD ZIRIPE

XLDnaute Occasionnel

• 21 Février 2015

• #7

Re : naviguer d'une feuille à l'autre via choix de combobox

Merci beaucoup pour ton aide.
A bientôt.

 

Vote positif 0 Vote négatif