Discussion :

[mxitzny]

Bonjour je suis débutant et j'ai besoin d'aide!!
j'ai fait un code qui permet d'ajouter un nb de ligne (à partir d'une feuille qui contient un modèle) en appuyant sur le bouton ça marche mais le bouton ne se décale pas une fois les lignes ajouté.
une solution SVP
voici le code:

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
16
17
18
19
20
21
22
23
24
Sub Ajout()                                                  
On Error Resume Next
Application.ScreenUpdating = False                                      
Call derniere_ligne(3, 1)                             
Dim nombre As Integer
Dim i As Integer
i = 0
nombre = InputBox("Veuillez indiquer le nombre de matériel que vous voulez ajouter")
While i < nombre
 
Application.CutCopyMode = False
 
    Sheets("Modèle").Select
    Rows("3:6").Select
    Selection.Copy
    Sheets("AB").Select
    Call derniere_ligne(3, 1)
    Range(ActiveCell.Row).Select
    ActiveSheet.Paste
 
i = i + 1
Wend
Application.ScreenUpdating = True
End Sub

[Nicolas JACQUIN]

Bonjour,
Essai ceci et adapte à ton cas

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
With CommandButton1
.Top = ActiveCell.Top
.Left = ActiveCell.Left
End With
End Sub

A bientôt

[joe.levrai]

Bonjour,

ton bouton et peut-être en propriété "Ne pas déplacer ou dimensionner avec les cellules"

fait un clic droit dessus et va dans "Format de contrôle"
vérifie que tu est bien sur l'une des deux options "Déplacer....."