Bonjour ,
Je suis NOUVELLE SUR LE Forum et je suis débutante en VBA et j'ai besoin de votre aide pour modifier ma macro s'il vous plait
mon probléme :
Ma macro fonctionne avec un Menu contextuel .Donc je voudrais quand utilisateur fini a remplir toute une ligne, après quand il clique sur le souris ou s'nommé "duplication de la ligne " ; un message Box montre n° de trajet de début ,après un autre message Box ,n°de trajet de fin .
Don c a partir de n° trajet de début jusqu’au numéro de trajet de fin , il incrémente avec un +1 pour le dernière n° de trajet avec recopie de toute la ligne .
'exemple :
N° trajet de debut :580
N) trajet de fin: 587
donc je vais avoir 581-582-583-584-585-856-587 avec coipe de tout les données de la ligne 1 .
' code VBA
Sub dupliquerlignes()
Dim lignes As Integer
Dim debut As Integer
DEBUT = InputBox("N DE DEBUT ")
FIN+ InputBox("N DE FIN ")
For debut To FIN
With ActiveCell.EntireRow
.Offset(debut, 0).Insert Shift:=xlDown
.Copy Destination:=.Offset(debut, 0)
DEBUT+DEBUT+1
End With
Next debut
End Sub
' Menu contextuel
Private Sub Workbook_Open()
Call Creer_Menu_Contextuel_2
End Sub
Sub Creer_Menu_Contextuel_2()
'réinitialize la sourie comme à l'origine
Application.CommandBars("Cell").Reset
'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Duplication de la ligne" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
.OnAction = "dupliquerlignes" 'appel de la macro
End With
End Sub
Sub reset_menudroit()
CommandBars("Cell").Reset
End Sub
Dans l'attente de vos répense .Je vous remercie d'avance .