Insertion de lignes à conditions

  • Initiateur de la discussion Initiateur de la discussion maninette1234
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

maninette1234

Guest
Bonjour,

Je cherche à faire un truc depuis quelques temps que je ne trouve pas.

J'ai dans la colonne A des chiffres triés par ordre croissant. Je voudrais insérer une ligne a chaque changement de chiffres créant ainsi des groupes!

123
123

134
134


Je ne connais pas le VBA je lis bcp de choses à ce propos peut être que ca va m'aider à solutionner mon problème mais si quelqu'un à la solution je serai la plus heureuse!!

merci
 
Re : Insertion de lignes à conditions

petit bout de code a tester voir si ca repond a tes besoins:
Columns("A:C").Select
Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(3), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True

For Each X In Range("A1:A1000")
If X.Value = "NB*" Then Range(X).Clear
Next X
 
Re : Insertion de lignes à conditions

Salut Maninette,

Je viens de regarder ton fichier et je rejoins ce que flo te répète.

La fonction Sous-Totaux du menu Données réalise les étapes 2 et 3 très rapidement.

En imaginant que l'on sépare l'étape 2 de l'étape 3, comment vas tu faire les sous-totaux ?

@+
 
Re : Insertion de lignes à conditions

j'ai essayer de faire une macro mais ca marche pas fodra ke j'essaye au boulot

et pour les codes c du chinois pour moi je sais pas ou je dois mettre ca

et g oublier un détail la colonne C meme pour un meme client c pa pareil par exemple : DURAND2 ET DURAND5 mais ils doivent etre dans le meme groupe!!

je pars un moment je revien tout a l'heure
 
Re : Insertion de lignes à conditions

maninette1234 à dit:
celui la est plus complet et tu vois kan ya 60 pages je peu pas faire des sous totaux pour inserer des lignes et apres devoir effacer des cellules ca en ferai tro
Salut
on peut aussi faire ça avec des mise en format conditionnel :
à chaque chagement de A, ou de C, le fond devient Jaune

A+

NOTA pour transposer sur un autre fichier
Clic-Droit sur onglet>>Visualiser le code
sélectionner de Sub à End Sub
Ctrl + C (ou clic-droit>>copier)

sur la feuille destination
Clic-Droit sur onglet>>Visualiser le code
Ctrl + V (ou clic-droit>>coller)
 

Pièces jointes

Dernière édition:
Re : Insertion de lignes à conditions

merci c cool

et est ce que tu peux me faire la meme en insérant une ligne uniquement a chaque changement de la colonne A?

et sinon on peux le faire qu'avec une macro? il n'existe pas d'outils direct sur excel?
 
Re : Insertion de lignes à conditions

maninette1234 à dit:
merci c cool

et est ce que tu peux me faire la meme en insérant une ligne uniquement a chaque changement de la colonne A?

et sinon on peux le faire qu'avec une macro? il n'existe pas d'outils direct sur excel?
Re...
La même, sans tri et en ne tenant compte que du changement de la colonne A
Code:
Sub test_A()
Dim X As Long
For X = Range("A65536").End(xlUp).Row To 2 Step -1
    If Range("A" & X) <> Range("A" & X - 1) Then
        Rows(X).Select
        Selection.Insert Shift:=xlDown
    End If
Next X
End Sub
À de très rare exeption prés, une formule n'agit que sur la cellule qui la contient, si tu veux une action sur une cellule autre, il faut passer par les macros

A+

NOTA tu recherches des formules pour te sécuriser, mais si tu es capable de faire des formules, tu es capable de faire du VBA. Et en plus, tu as tout un forum pour t'aider, avec des personnes des 4 coins du monde, alors, faut en profiter
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

H
Réponses
21
Affichages
3 K
H
B
Réponses
2
Affichages
2 K
bastienb
B
V
Réponses
96
Affichages
16 K
Bpil2326
B
V
Réponses
8
Affichages
2 K
vince87
V
M
Réponses
6
Affichages
894
M
A
  • Question Question
Réponses
17
Affichages
1 K
Ayral10
A
H
Réponses
3
Affichages
744
H
Retour