Discussion :

[Helea]

Bonjour,
Voici mon casse tête, j'aimerai ajouter des lignes dans mon fichier (joint) selon les conditions suivantes :

- ajouter des lignes à chaque changement de cellule dans la colonne "B", le nombre de ligne à ajouter dépend du nombre de cellule identique dans la colonne "B" avant que celle-ci ne change de données
- puis dans cet ajout de lignes reprendre les données des lignes concernées avant le changement dans la colonne "B" exceptée la données de la colonne "C"

Voir exemple manuelle dans les premières lignes de mon fichier joint.

Merci encore pour toute l'aide que vous pourrez m'apporter.
HeléaTEST 2 Héléa.xlsx

[Qwazerty]

Salut

Dans un premier temps je te conseillerais d'utiliser un tableau (Onglet Insertion puis Tableau)(Attention de bien afficher toutes les ligne du tableau avant de lancer sa création ou alors de penser à changer manuellement l'adresse), ça te facilitera grandement la tache au niveau du développement de ton code.
N'oublie pas de renommer ton tableau pour pouvoir y faire référence plus facilement dans ton code.

Tu auras besoin de boucler sur les cellules de ton tableau, étant donné que tu vas devoir ajouter des lignes il vaudrait mieux adopter une boucle For Next

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim x as integer
with Feuil1.ListObjects("NomDuTableau")
 
    '.... suite du code
    For x = 1 to .listrows.count
        '
    next
End if

N'hésite pas une fois ton code entamé à revenir si tu bloques.

++
Qwaz

[Helea]

Bonsoir Quazerty,
Tout d'abord merci pour l'aide que tu m'apportes.
Je rencontre un problème lorsque je lance ma macro, me message d'erreur indique "Erreur de compilation: instruction incorrecte à l'extérieur d'une procédure" et surligne cette ligne :
With Feuil1.ListObjects("TableauHelea")
Vois-tu le problème ?
voici la macro complète que j'ai formulé suite à ton message :
'

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
 
' Helea Macro
' Ajouter des lignes
'
' Touche de raccourci du clavier: Ctrl+Maj+P
'
 
Dim x As Integer
With Feuil1.ListObjects("TableauHelea")
 
    '.... suite du code
    For x = 1 To .ListRows.Count
        '
    Next
End If

[Denis la Malice]

Bonjour,

une macro commence par Sub et se termine par End Sub.

Toutes les instructions doivent se trouver entre le début et la fin de la macro. En dehors de la macro : pas d'instructions, uniquement des déclarations globales (en gros : option, dim ou const).

Dans l'exemple que tu donnes, il n'y a ni Sub ni End Sub, alors c'est dur de deviner où ils sont.

[Helea]

Bonjour Denis la malice,

En reformulant la macro avec Sub et End Sud, j'obtiens encore une erreur liée à la ligne "End If" (Erreur de compilation: End If sans bloc If)
Merci pour votre aide.

Voici le texte de la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Helea()
 
 
Dim x As Integer
With Feuil1.ListObjects("TableauHelea")
 
    '.... suite du code
    For x = 1 To .ListRows.Count
        '
    Next
End If
 
End Sub

[bboy-eazy]

Bonjour,

Peux tu envoyer ton code entièrement stp en ajoutant les balises [CODE]

C'est normal car tu as un end if ce qui implique un if un peu plus au:

Code :

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

1
2
3
If '.....
'....
end if

de même il y a un with donc il y aura un end with:

Code :

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

1
2
3
with '.......
'.....
end with

[Helea]

Merci à tous.
J'ai résolu mon problème
Bonne fin de journée.