Comment insérer ligne égale valeur cellule ?
Fermé
dede798
Messages postés
6
Date d'inscription
jeudi 20 septembre 2018
Statut
Membre
Dernière intervention
20 septembre 2018
-
20 sept. 2018 à 00:46
dede798 Messages postés 6 Date d'inscription jeudi 20 septembre 2018 Statut Membre Dernière intervention 20 septembre 2018 - 20 sept. 2018 à 10:38
dede798 Messages postés 6 Date d'inscription jeudi 20 septembre 2018 Statut Membre Dernière intervention 20 septembre 2018 - 20 sept. 2018 à 10:38
A voir également:
- Vba insérer une ligne si cellule contient
- Aller à la ligne dans une cellule excel - Guide
- Insérer signature word - Guide
- Insérer une vidéo dans powerpoint - Guide
- Excel cellule couleur si condition texte - Guide
- Insérer liste déroulante excel - Guide
1 réponse
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
281
20 sept. 2018 à 09:49
20 sept. 2018 à 09:49
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
20 sept. 2018 à 10:03
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
20 sept. 2018 à 10:08
20 sept. 2018 à 10:16
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".
20 sept. 2018 à 10:38
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.
20 sept. 2018 à 10:20
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