Discussion :

[Bearn 64]

Bonjour le Forum

Attention grand débutant.
Je souhaite insérer des lignes dans une feuille excel 2007.

Avec une macro ok. (voir pièce jointe Module81).

Mais je patine avec un userform. (voir pièce jointe FrmEtiquettes) je met une valeur dans une cellule mais je ne sais pas la récupérer pour faire comme dans la macro.

Merci de votre expertise et de votre aide.

[Daniel.C]

Bonjour,

Modifie le code de la macro du bouton de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton_valider_Click()
    If IsNumeric(TextBox_numero.Value) Then 'SI valeur numérique ...
 
        Sheets("Feuil1").Select
        val1 = 2
        val2 = CInt(TextBox_numero.Value) + 1
 
        Rows(val1 & ":" & val2).Insert xlShiftDown
        Range("K1") = TextBox_numero.Value 'Copie en K1
 
        Unload Me 'Fermeture
    Else
        MsgBox "Valeur incorrecte"
    End If
End Sub

[Bearn 64]

Bonsoir Daniel.C.

Merci de cette réponse qui me donne la solution tant esperée.