Renseigner deux onglets à partir d’un USF ?

Bonsoir le forum,

Quelqu’un peut-il m’aider à résoudre ce problème svp ?

Données :

A partir de l’onglet 1 je créé un nouvel onglet.

A sa création, cet onglet est nommé et activé.

Apparaît un USF

Question :

Comment, à partir d’un USF, renseigner deux onglets, l’un actif mais dont je ne peut connaître le nom à l’avance, et l’autre appelé bd ?

Condition :

Ecrire d’ans l’onglet actif à partir de la ligne 2.

Ecrire d’ans l’onglet bd après la dernière ligne non vide.

Merci à tous par avance.

https://www.excel-pratique.com/~files/doc/actif_et_bd.xls

Cdlt,

Salut le forum

Pas beaucoup de code dans ton fichier......

Désolé, pas le temps de créer à partir de rien...

Peut-être que Claude aura du temps, il aime bien le clé en main.

Mytå

Re,

Mytå a écrit :

Pas beaucoup de code dans ton fichier...... Désolé, pas le temps de créer à partir de rien...

Mytå, avec ce bout de code que j'ai dans l'USF

Private Sub b_validation_Click()
   If Me.nom = "" Then
      MsgBox "Saisir blabla"
      Me.nom.SetFocus
      Exit Sub
   End If
   '---- transfert base
   Sheets("bd").Cells(PositionNomMemo, 1) = Application.Proper(Me.nom)
   Sheets("bd").Cells(PositionNomMemo, 2) = Me.Tph
   Sheets("bd").Cells(PositionNomMemo, 3) = Me.Portable
   Sheets("bd").Cells(PositionNomMemo, 4) = Me.Email

    '---- transfert onglet actif
    '---- C'EST ICI QUE JE BLOQUE
    ActiveSheet.Cells(PositionNomMemo, 1) = Application.Proper(Me.nom)
    ActiveSheet.Cells(PositionNomMemo, 2) = Me.Tph
    ActiveSheet.Cells(PositionNomMemo, 3) = Me.Portable
    ActiveSheet.Cells(PositionNomMemo, 4) = Me.Email
   Unload Me
End Sub

Bonjour à tous,

Mytå a écrit :

Peut-être que Claude aura du temps, il aime bien le clé en main.

@ Claude:

Bonjour Claude, avec le bout de code du post précédent, pourait-tu faire quelque chose stp.

merçi

Cdlt,

Salut le forum

Billianne, merci pour ton [Résolu].

Désolé pour les nouveaux membres, Billanne ne partage pas son savoir.

Le bénévolat semble à sens unique pour certains(es).

Bonne chance dans tes prochaines questions, cette ficelle va remonter pour te le faire savoir

Mytå

Bonjour le forum,

Mytå a écrit :

Billianne, merci pour ton [Résolu].

Mytå a écrit :

Désolé pour les nouveaux membres, Billanne ne partage pas son savoir.

  =SI(bd!B3<>"";bd!B3;0) 

ce qui est fastidieux, mais faute de mieux !!!

Mytå a écrit :

Le bénévolat semble à sens unique pour certains(es).

Mytå a écrit :

Bonne chance dans tes prochaines questions, cette ficelle va remonter pour te le faire savoir

Cdlt,