Macro "Insérer des lignes "
izenheim
Messages postés
2
Statut
Membre
-
izenheim Messages postés 2 Statut Membre -
izenheim Messages postés 2 Statut Membre -
Bonjour,
J'aimerai effectuer une insertion conditionnée des lignes. En fait, j'ai des noms de famille dans la colonne A. Je veux, qu'à chaque fois que le nom de famille change, une insertion de 3 lignes s'effectuera, avec, la première ligne restera vide, la deuxième comportera le mot "La famille" XX (tel que XX est un renvoi vers la première case contenant le nouveau nom de famille) et la troisième ligne comportera les entêtes figurant en têtes de tableau. J'espère avoir été clair. L'image jointe expliquera mieux mon souci. En vous remerciant de votre collaboration,
Bien à Vous
J'aimerai effectuer une insertion conditionnée des lignes. En fait, j'ai des noms de famille dans la colonne A. Je veux, qu'à chaque fois que le nom de famille change, une insertion de 3 lignes s'effectuera, avec, la première ligne restera vide, la deuxième comportera le mot "La famille" XX (tel que XX est un renvoi vers la première case contenant le nouveau nom de famille) et la troisième ligne comportera les entêtes figurant en têtes de tableau. J'espère avoir été clair. L'image jointe expliquera mieux mon souci. En vous remerciant de votre collaboration,
Bien à Vous
A voir également:
- Macro "Insérer des lignes "
- Insérer video powerpoint - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Insérer signature word - Guide
- Comment insérer des points de suite sur word - Guide
- Insérer liste déroulante excel - Guide
2 réponses
Bonsoir
Avec une macro :
ALT + F11 pour ouvrir l'éditeur
Insertion Module
puis copier et coller la macro suivante :
Fermer l'éditeur
Sur la page Onglet Developpeur Macros et choisir d'exécuter la macro répartir
Ensuite pour les bordures :
selectionner les colonnes J à M
Accueil
Mise en forme conditionnelle
Nouvelle regle
Appliquer une mise en forme aux cellules qui contiennent
choisir Aucune cellules vides et Format de bordures
Recommencer l'opération en choisissant cette fois Texte spécifique puis contenant et entrer famille avant d'enlever toutes bordures dans le Format de bordures
Cdlmnt
Avec une macro :
ALT + F11 pour ouvrir l'éditeur
Insertion Module
puis copier et coller la macro suivante :
Sub repartir()
Application.ScreenUpdating = False
x = 5
Dim Ligne As Long
Ligne = ActiveSheet.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 7 To Ligne
If Range("A" & n).Value <> Range("A" & n - 1).Value Then
Range("J" & x + 1) = "La famille " & Range("A" & n)
Range("J" & x + 2) = "Nom"
Range("K" & x + 2) = "Prénom"
Range("L" & x + 2) = "Age"
Range("M" & x + 2) = "Sexe"
x = x + 3
End If
Range("J" & x) = Range("A" & n)
Range("K" & x) = Range("B" & n)
Range("L" & x) = Range("C" & n)
Range("M" & x) = Range("D" & n)
x = x + 1
Next
Application.ScreenUpdating = True
End Sub
Fermer l'éditeur
Sur la page Onglet Developpeur Macros et choisir d'exécuter la macro répartir
Ensuite pour les bordures :
selectionner les colonnes J à M
Accueil
Mise en forme conditionnelle
Nouvelle regle
Appliquer une mise en forme aux cellules qui contiennent
choisir Aucune cellules vides et Format de bordures
Recommencer l'opération en choisissant cette fois Texte spécifique puis contenant et entrer famille avant d'enlever toutes bordures dans le Format de bordures
Cdlmnt
