Ajout de lignes vides sous certaines conditions.
Fermé
Boby
-
18 déc. 2018 à 09:13
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 18 déc. 2018 à 13:49
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 18 déc. 2018 à 13:49
A voir également:
- Ajout de lignes vides sous certaines conditions.
- Site de vente en ligne particulier - Guide
- Ajout perso instagram introuvable ✓ - Forum Instagram
- L’imprimante a envoyé un message d’erreur car les cartouches d’encre couleur sont vides. quel paramètre karim peut-il modifier pour tenter de l’imprimer quand même ? - Forum Imprimante
- Ajout rapide snap - Forum Snapchat
- Ajout rapide snap - Forum Snapchat
4 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
18 déc. 2018 à 10:26
18 déc. 2018 à 10:26
Bonjour Boby
T+F11 pour pour ouvrir éditeur VBA puis Insertion et Module -copier coller la macro et fermer l'éditeur )
Lancer ensuite la amcro dans la page depuis onglet Developpeur - Macros
Cdlmnt
Via
T+F11 pour pour ouvrir éditeur VBA puis Insertion et Module -copier coller la macro et fermer l'éditeur )
Sub ajout() Dim Ligne As Long Ligne = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row For n = Ligne To 1 Step -1 If Range("C" & n) <> Range("C" & n + 1) Then Rows(n + 1 & ":" & n + 1).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If Next End Sub
Lancer ensuite la amcro dans la page depuis onglet Developpeur - Macros
Cdlmnt
Via
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
18 déc. 2018 à 11:32
18 déc. 2018 à 11:32
Sans connaitre la structure du fichier impossible de dire
Poste un exemple de ton fichier sir cjoint.com, fais créer un lien que tu copies et reviens coller ici
Poste un exemple de ton fichier sir cjoint.com, fais créer un lien que tu copies et reviens coller ici
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
18 déc. 2018 à 12:35
18 déc. 2018 à 12:35
Ton fichier en retour
https://mon-partage.fr/f/JfdrH9Df/
https://mon-partage.fr/f/JfdrH9Df/
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
18 déc. 2018 à 13:49
18 déc. 2018 à 13:49
Dans ce cas il convient de créer une seconde macro :
Sub supprime() Dim Ligne As Long Ligne = Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row For n = Ligne To 1 Step -1 If Range("G" & n) = "" Then Rows(n & ":" & n).Select Selection.Delete Shift:=xlUp End If Next End Sub
18 déc. 2018 à 10:49
18 déc. 2018 à 11:31
ton message apparaît il sans filtrer sur la colonne 7 ?