Pb de destination de macro...

[Tybo]

Bonjour,

avec la macro suivante, je mets à jour via un USF des listes déroulantes dépendantes les unes de autres :

Private Sub CommandButton1_Click()
    Dim col As Integer
    col = ComboBox1.ListIndex + 2
    Cells(Cells(65535, col).End(xlUp).Row + 1, col) = TextBox1
    Unload Me
End Sub

Le seul problème, c'est que les données s'intègrent sur la feuille depuis laquelle la macro est lancée or je voudrai que les données s'intègrent sur la feuille "Datas" quelle que soit la page depuis laquelle la macro est lancée.

Que dois-je rajouter ?

Merci

 

[pierrejean]

Re : Pb de destination de macro...

teste ceci:

[COLOR=black]Private Sub CommandButton1_Click() [/COLOR]
[COLOR=black]Dim col As Integer [/COLOR]
[COLOR=black]col = ComboBox1.ListIndex + 2 [/COLOR]
[COLOR=black]Sheets("Datas").Cells(Sheets("Datas").Cells(65535, col).End(xlUp).Row + 1, col) = TextBox1 [/COLOR]
[COLOR=black]Unload Me [/COLOR]
[COLOR=black]End Sub [/COLOR]
[COLOR=#0000cc][/COLOR]

 

[Tybo]

Re : Pb de destination de macro...

Merci Pierrejean,

ça marche... ou presque.

Les données vont bien uniquement sur la feuille Datas mais je ne peux plus intégrer au delà de la 3e ligne de la colonne, à chaque fois que je rajoute une donnée, elle écrase celle de la 2e ligne.

Voir le fichier joint si besoin. La macro est celle lancée par le bouton + sur la feuille "Juin07"

 

[pierrejean]

Re : Pb de destination de macro...

bonjour

je ne comprends pas

chez moi ça fonctionne

 

[Tybo]

Re : Pb de destination de macro...

Merci pierrejean,

c'est nickel cette fois-ci !

Merci