Comment insérer ligne égale valeur cellule ?
dede798
Messages postés
6
Statut
Membre
-
dede798 Messages postés 6 Statut Membre -
dede798 Messages postés 6 Statut Membre -
Bonjour pourriez-vous m'aider ?
Je cherche à écrire une macro me permettant d'insérer des lignes en fonction du numéro dans la cellules.
Pour être plus claire, un exemple : Dans A12 j'ai la valeur 16, je veux que ma ligne soit copier en A16.
J'ai environ 1000 lignes à traiter.
Exemple sous excel : Avant
Après
Est-ce possible ?
Merci.
Je cherche à écrire une macro me permettant d'insérer des lignes en fonction du numéro dans la cellules.
Pour être plus claire, un exemple : Dans A12 j'ai la valeur 16, je veux que ma ligne soit copier en A16.
J'ai environ 1000 lignes à traiter.
Exemple sous excel : Avant
Après
Est-ce possible ?
Merci.
A voir également:
- Vba insérer une ligne si cellule contient
- Insérer une vidéo dans powerpoint - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Partager photos en ligne - Guide
- Insérer signature word - Guide
1 réponse
Bonjour,
Il faudrait savoir aussi, si les lignes qui doivent être remplies, contiennent des données avec un numéro qui ne correspond pas
ex:
en A1 j'ai 12, je copie la ligne 1 pour la mettre en ligne 12, mais la cellule A12 contient déjà 14, qui devrait être déplacée
Si toutes les lignes sont remplies, le mieux est un filtrage par la colonne A
Il faudrait savoir aussi, si les lignes qui doivent être remplies, contiennent des données avec un numéro qui ne correspond pas
ex:
en A1 j'ai 12, je copie la ligne 1 pour la mettre en ligne 12, mais la cellule A12 contient déjà 14, qui devrait être déplacée
Si toutes les lignes sont remplies, le mieux est un filtrage par la colonne A
Le code pour l'instant ressemble a sa :
Sub Lecture_ligne()
'Compter le nombres de lignes
nb_lignes = WorksheetFunction.CountA(Range("A:A"))
For i = 1 To 1000
Range("A" & i).Select
n = Range("A" & i).Value
If i < n Then
Selection.Insert Shift:=xlDown
End If
Next
End Sub
Si tu déplaces une ligne pour la mettre dans une autre ligne déjà remplie, tu perd ses données.
Un p’tit classeur avec 10/15 données serait mieux pour régler le soucis :yum:
Tu vas dans https://www.cjoint.com/ ou dans https://mon-partage.fr/
Tu cliques sur "PARCOURIR" pour sélectionner ton fichier
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur ton message Clic droit "Coller".
Le reste sera d'implanter ma macro dans le nouveau fichier implanté toutes les minutes, je pense que par un batch cela doit être possible, enfin je l'espère.
Nouveau code :
Sub Lecture_ligne()
'Compter le nombres de lignes
nb_lignes = WorksheetFunction.CountA(Range("A:A"))
For i = 1 To 1000
n = Range("A" & i).Value
If i < n Then
Range("A" & i).Select
Selection.Insert Shift:=xlDown
Range("B" & i).Select
Selection.Insert Shift:=xlDown
End If
Next
End Sub