Problème macro Excel
Résolu/Fermé
nicket96
Messages postés
2
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
29 octobre 2007
-
25 oct. 2007 à 13:29
nicket96 Messages postés 2 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 29 octobre 2007 - 29 oct. 2007 à 11:50
nicket96 Messages postés 2 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 29 octobre 2007 - 29 oct. 2007 à 11:50
A voir également:
- Problème macro Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
2 réponses
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
26 oct. 2007 à 14:20
26 oct. 2007 à 14:20
bonjour
Ton code est très long pour être sûr d'avoir tout vu mais dans ta séquence "''AJOUTER NUMEROS MANQUANTS "
Il me semble que cela fonctionnerait plus correctement avec la méthode suivante qui prend les lignes dans l'ordre et met les générés en fin.
De même il y a un problème dans ''SUPPRESSION NUMEROS COURTS car lorsque tu supprime il faut toujours commencer par en bas sinon tu loupes des lignes car le delete passe à la ligne suivante.
Ainsi, ta macro devrait être correcte et tiens nous au courant.
Ton code est très long pour être sûr d'avoir tout vu mais dans ta séquence "''AJOUTER NUMEROS MANQUANTS "
Il me semble que cela fonctionnerait plus correctement avec la méthode suivante qui prend les lignes dans l'ordre et met les générés en fin.
For k = 1 To intLigne
If Len(Cells(k, 1)) = 4 Then
For j = 0 To 9
Range("A1").End(xlDown).Offset(1, 0) = Cells(k, 1) & j
Next j
End If
If Len(Cells(k, 1)) = 3 Then
For j = 0 To 99
Range("A1").End(xlDown).Offset(1, 0) = Cells(k, 1) & Format(j, "00")
Next j
End If
Next k
De même il y a un problème dans ''SUPPRESSION NUMEROS COURTS car lorsque tu supprime il faut toujours commencer par en bas sinon tu loupes des lignes car le delete passe à la ligne suivante.
For m = intRow To 1 Step -1
If Len(Cells(m, 1)) = 4 Or Len(Cells(m, 1)) = 3 Then
Cells(m, 1).Delete Shift:=xlUp
End If
Next m
Ainsi, ta macro devrait être correcte et tiens nous au courant.
nicket96
Messages postés
2
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
29 octobre 2007
29 oct. 2007 à 11:50
29 oct. 2007 à 11:50
Salut,
Merci beaucoup de ta réponse, cela a été très utile et fonctionne maintenant à merveille !
Bonne journée
Merci beaucoup de ta réponse, cela a été très utile et fonctionne maintenant à merveille !
Bonne journée