Renvoie des données automatiquement
Bonjour ,
Je suis débutante en VBA et j'ai besoin de votre aide pour résoudre mon petit problème s'il vous plait .
Ma question :
j'ai un tableau de données et je voudrai parcourir mon tableau, si j'ai une répétition (2 ou plus) sur la cellule A et B de chaque ligne ,j'aimerai renvoyer les données de tous le lignes qui se répètent sur une seule ligne ou il y' a les champs vides ,
exemple :
merci d'avance
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Bonjour,
Merci beaucoup pour votre réponse,ça fonctionne très bien .
Merci beaucoup pour votre aide.
C'est super
Bonjour ,
Je reviens vers vous , comme je me suis basées sur votre code pour résoudre mon problème
Cependant, mon code exécute le regroupement seulement sur 2 lignes pas plus .
J'arrive pas a trouver le problème.
Merci pour votre aide.
Bonjour,
Vraiement merci beaucoup , est ce que c'est possible de ne pas écraser les données :
je m'explique c'est a dire s'il y'a une autre cause ou conséquence ,il le met aussi mais avec un / ou - ?
C'est possible ?
Je vous remercie ennormement .
Bonjour ,
Je vous remercie pour votre aide pour résoudre mon problème.
Ça fonctionne très bien ,j'ai modifié un peu dans votre code et ça marche.
merci .
Bonjour ,
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 a partir de n° trajet de début jusqu’au numéro de trajet de fin , il incrémente avec un +1 , avec recopie de toute la ligne .
'exemple :
N° trajet de debut :580
N) trajet de fin: 587
donc je voudrai avoir
581
582
583
584
avec coipe de tout les données de la ligne de n0 de trajet 581 de debut pour les autres numéros de trajet .
' 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
j'espere que j'ai bien expliquer mon probléme .
Dans l'attente de vos répense .Je vous remercie d'avance .