VBA récupérer une valeur entrée par l'utilisateur dans excel

Question

Bonjour, 

Je n'ai jamais fait de VBA et j'ai besoin d'un pgramme super simple svp.

L'utilisateur rentre un nombre, X,  dans une cellule (dans mon cas D15)
Je veux un programme qui séléctionne une range: Range("B61:O61").Select
et qui la copie X fois dans les lignes du dessous.
Ex si X=23,  la range sera copiée dans les lignes 62,63...et 84
"Selection.AutoFill Destination:=Range("B61:O84")"

Je ne sais pas comment intégrer le X de l'utilisateur

Il me faudrait un bouton ensuite à coté de la cellule D15 qui déclencher le "programme"
NB: si l'utilisateur rentre ensuite 3, le programme ne doit laisser que 62,63 et 64 et effacer 65 à 84 (il doit réinitialiser en fait...)

J'espère que c'est pas trop confus.
Je vous remercie bcp pour votre aide.

Utilisateur anonyme · Answer

Bonjour,

Étape 1 :
Ouvrir VBE (Visual Basic Editor)

// Menu / Outils / Macro / Visual Basic Editor  -> [Alt] [F11]

Supposons que la cellule D15 est sur la feuille 1.

Dans l'éditeur, regarder à gauche, la fenêtre qui se nomme
[ Projet - VBAProject ], vous y voyer le nom de ton classeur
Excel, repère la feuille 1 [ Feuil1] et effectue un double clic
dessus.

Tu attérit dans la fenêtre de droite, colle y le code suivant :


Option Explicit

 Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Valeur As Long, Boucle As Long
    
    Application.EnableEvents = False
    
    If Not (Intersect(Target, Range("D15"))) Then
        Valeur = CLng(Target.Value)
        Range("B61:O61").Select
        Selection.Copy
        Range("B62").Select
        For Boucle = 1 To Valeur
            ActiveSheet.Paste
            ActiveCell.Offset(1, 0).Select
        Next Boucle
        Application.CutCopyMode = False
    End If
    
    
    Application.EnableEvents = True
    
End Sub
'


Cdt

Lupin

Utilisateur anonyme · Answer

Bonjour,

Code modifié selon la demande :


Option Explicit
'

Private Sub Worksheet_Change(ByVal Target As Range)

    Static Nombre As Long
    Dim Valeur As Long, Boucle As Long
    
    Application.EnableEvents = False
    
    If Not (Intersect(Target, Range("D15"))) Then
        Valeur = CLng(Target.Value)
        If (Valeur < Nombre) Then
            DetruitLigne (Nombre)
        End If
        Nombre = Valeur
        Range("B61:O61").Select
        Selection.Copy
        Range("B62").Select
        For Boucle = 1 To Valeur
            ActiveSheet.Paste
            ActiveCell.Offset(1, 0).Select
        Next Boucle
        Application.CutCopyMode = False
    End If
    
    
    Application.EnableEvents = True
    
End Sub
'

Private Sub DetruitLigne(ByVal Nombre As Long)

    Dim Boucle As Long
    
    Range("B62").Select
    For Boucle = 1 To Nombre
            ActiveCell.EntireRow.Delete
    Next Boucle
    
End Sub
'


Cdt

Lupin

michel_m · Answer

Bonjour,

Peut-être + simple et sans boucle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Integer
If Not Intersect(Target, Range("D15")) Is Nothing And Target.Count = 1 Then
     lig = Range("B165").End(xlUp).Row + 1
     Application.EnableEvents = False
       Range("B62:O" & lig).Clear
       If Target <> "" Then Range("B61:O" & 61 + Target).FillDown
     Application.EnableEvents = True
End If

End Sub
b165 correspond à 100 dans D15

regarde si cette maquette peut t'aider
https://www.cjoint.com/?3DojCVHxkiG

VBA récupérer une valeur entrée par l'utilisateur dans excel

3 réponses

Discussions similaires

Newsletters