Copier coller une ligne avec USF

[vmax67]

Bonjour à tous
J'ai un soucis avec ma macro.

La ligne à sélectionner par la valeur de la Textbox ne se copie pas

Merci pour votre aide

Voir fichier joint

 

[Guest]

Re : Copier coller une ligne avec USF

Bonjour,
Les textBox contiennent du Text et non des numériques.
il faut donc les convertir d'une manière ou d'une autre.
un indice de ligne de feuille de calcul est toujours un Long et non un Integer

Private Sub OK_Click()
    Dim x As long 'déclare la variable x
   [SIZE=3][COLOR=red]Dim ligne As Long[/COLOR][/SIZE]
[SIZE=3][COLOR=red]   ligne = Val(TextBox1.Value)[/COLOR][/SIZE]
    If ligne = 0 Then Exit Sub
    Rows("2:5").Select
    For x = 2 To 5                                    'boucle sur les lignes 2 à 5
        'condition : si la valeur de la cellule de la colonne A est égale à la TextBox1
        If Cells(x, 1).Value = [SIZE=3][COLOR=red]ligne[/COLOR][/SIZE] Then
            Rows(x).Select
            Selection.Cut Destination:=Rows("40:40")
            Exit For                                  'sort de la boucle
        End If                                        'fin de la condition
    Next x                                            'prochaine ligne de la boucle
    Unload Me                                         'masque l'Userform
    UserForm1.Hide
    'TextBox1.Value = ""
End Sub

A+

 

[vmax67]

Re : Copier coller une ligne avec USF

Merci pour cette réponse si rapide

Bonne soirée