Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer ligne en fonction du nombre de caractère

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion petedesky
  • 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 !

S'inscrire
P

petedesky

Guest
Bonjour à tous les experts et passionnés,

Comme beaucoup de gens j'ai un peu de mal avec VBA et je n'ai pas trouvé suffisamment d'info qui puisse m'aider.

Dans le tableau ci-joint,

Parmi toutes les cellules de colonne A qui sont non vide (il peut y en avoir d'autres en dessous), je souhaite insérer une ligne au dessus de chaque cellule de la colonne A qui contient 4 caractères.

Je ne sais pas comment combiner le LEN et Selection.EntireRow.Insert

Merci à vous
 

Pièces jointes

Trier par date Trier par votes
Re : Insérer ligne en fonction du nombre de caractère

Bonjour,

un essai macro à adapter et tester:

Code: 
Sub InsLigne()
 Dim i As Long
 With Worksheets("Exemple") ' à adapter
 For i = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1 'pour chaque ligne de la dernière à 1
    If Len(.Cells(i, 1)) = 4 Then .Rows(i).Insert Shift:=xlUp
 Next
 End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Insérer ligne en fonction du nombre de caractère

Super merci beaucoup ça marche parfaitement, j'ai juste à l'adapter a mon "vrai" tableau.

Encore merci a+
 
Vote positif 0 Vote négatif
Re : Insérer ligne en fonction du nombre de caractère

Encore bonjour,

Finalement j'ai une autre question

En fait avant le Dim i as Long j'ai du code. et à ce niveau du code j'ai des cellules qui sont sélectionnées. J'aimerai que ton code se base sur cette sélection de cellule pour insérer les lignes au dessus de la où il y a 4 caractères.

Voici ton code:
Dim i As Long
With Worksheets("exemple") ' à adapter
For i = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1 'pour chaque ligne de la dernière à 1
If Len(.Cells(i, 1)) = 4 Then .Rows(i).Insert Shift:=xlUp
Next

Voici ce que j'essaye de faire:
Dim i As Long
With Worksheets("exemple") ' à adapter
For i = .Range("A", Selection).Row To 1 Step -1 'pour chaque ligne de la dernière à 1
If Len(.Cells(i, 1)) = 4 Then .Rows(i).Insert Shift:=xlUp

Je ne sais pas si j'ai été claire

Si tu as une idée ?, mille fois merci de toute façon.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Insérer ligne en fonction du nombre de caractère

re,

s'il s'agit de 'traiter' de la ligne sélectionnée jusqu'à la première ligne:

Code: 
For i = Selection.Row To 1 Step -1 'pour chaque ligne de la sélection à 1
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
  • Question Question
XL 2010 calcul du nombre de jours en fonction des dates
Réponses
8
Affichages
360
job75
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
305
Cousinhub
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
470
Jaykerz
J
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
1 K
Sylvaing
S
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
728
AtTheOne
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
304
Dranreb
D
  • Résolu(e)
Power Query [DAX] Calculer le nombre de ligne en fonction du nombre de valeurs sélectionnées dans le dashboard
Réponses
3
Affichages
742
Dam71
D
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
1 K
Chris Linefield
C
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
552
Abi23
A
Z
  • Résolu(e)
Microsoft 365 Scinder une ligne en fonction de plusieurs critères
Réponses
10
Affichages
523
Zaadox
Z
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
  • Question Question
Microsoft 365 Découper du texte (sans VBA)
2
Réponses
20
Affichages
1 K
tbft
  • Question Question
XL 2021 Automatisation Extraction de données et de sommes
Réponses
1
Affichages
248
chris
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
J
  • Question Question
Microsoft 365 incrémenter numéro en fonction du mois
Réponses
8
Affichages
612
Phil69970
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
565
JHA
J
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
184
pamino
P
Z
  • Question Question
Microsoft 365 Reporter sur chaque ligne un code en fonction du numéro de département (INDEX_Eqiv ???)
Réponses
4
Affichages
529
Zougoulou
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…