vraiment ,
Vgendron vous êtes très fort en vba (*****)
, vous m'avez beaucoup aidé sur l'avancement de mon projet .
En faite
si c'est possible s'il vous plait , j'ai besoin de modifié votre macro
dupliquer massive de la ligne mais j'ai pas réussi
cette macro permet de dupliquer la ligne en faisant de copier coller en commençant de numéro de trajet de début jusqu'a numéro de trajet de fin
'
je voudrai modifié ma macro si c'est possible , en dupliquant la ligne tout en gardant le mémé esprit mais en rentrant dans un message box , les différents numéro de trajet separées par "
;"
je vous joint un fichier avec capture d'ecran .
le resultat souhaité se trouve dans la feuille saisie des fermeture
)))
Et je remercie beaucoup pour votre aide
))
Sub dupliquermassive()
Dim lignes As Integer
Dim debut As Integer
If ActiveCell.Column <> 2 Then Exit Sub 'si on clique ailleurs qu'en colonne B, on sort
debut = ActiveCell 'InputBox("N° DE DEBUT ")
fin = InputBox("Demande de fermeture massive : Du trajet n° " & debut & Chr(10) & "Au trajet n° ")
If fin = "" Then
MsgBox ("saisie vide, saissisez un n°")
Exit Sub
ElseIf debut > fin Then
MsgBox (" Erreur de saisie, le n° doit être supérieur à " & debut)
Exit Sub
Else: fin = CInt(fin)
End If
Rep = MsgBox("Confirmation de la fermeture massive destrajetsn° " & debut & " jusqu'au n° " & fin, vbYesNo)
If Rep = 7 Then Exit Sub
For i = ActiveCell.Row To ActiveCell.Row + (fin - debut) - 1
With ActiveCell.EntireRow
.Offset(1, 0).Insert Shift:=xlDown
.Copy Destination:=.Offset(1, 0)
End With
Next i
For i = ActiveCell.Row To ActiveCell.Row + (fin - debut) - 1
ActiveSheet.Range("B" & i + 1) = debut + i - ActiveCell.Row + 1
Next i
End Sub