6 pièce(s) jointe(s)
VBA Incrémentation à partir de 0
Salut la communauté,
depuis quelques jours, je travaille sur un projet personnel qui consiste à :
à partir d'un fichiers .txt de données de voitures, extraire des listes telles que : Marque, Modèle, nom complet (marque, modèle, année), Puissance,... et créer les fichiers .txt correspondants (exemple : marque.txt, modele. txt,...),
puis à les importer dans les colonnes correspondantes dans mon fichier excel.
Une fois l'importation réalisée (colonnes B à F), j'incrémente la colonne A si la cellule adjacente en B est non vide, et ceci jusqu'à la dernière cellule non vide de la colonne B. ceci afin de donner un numero à chaque cellule non vide de B. Bien évidemment, il n'y a jamais de cellule vide car lors de la création des fichiers de listes, chaque donnée est directement écrite à la suite des unes des autres.
Lorsque l'incrémentation est terminée, je peux faire un tri selon ce que je souhaite et ensuite exporter ma colonne A (dont les numéros ne suivent plus du fait du tri) dans un nouveau fichier .txt créé par le code.
Pour réaliser cela, j'ai déja trouvé beaucoup d'aide et j'ai déja pu écrire toute la partie d'importation des listes. j'ai pu également écrire l'incrémentation et aussi la macro pour le tri et l'exportation de la colonne A en fichier .txt
ben si déjà tout est fait, il ne reste plus rien à faire !!!
alors oui et non...
Comme je suis Super Débutant, j'ai bien fait du copié collé de ce que j'ai trouvé et j'ai adapté à ma sauce. Cependant, il me reste un petit HIC.....
L'incrémentation qui commence en A2 du fait d'une ligne d'entête(s) devrait débuter par 0. Or, tout ce que j'ai trouvé commence par 1...
J'aimerais donc de l'aide afin de pouvoir finaliser mon incrémentation (=si(B2<>"";A2=0;"" et ainsi de suite jusqu'à la dernière ligne de la colonne B non vide(donnée aléatoire car le fichier de base peut contenir 20 ligne de modèles de voiture comme il peut en contenir 900...) --> en script VBA), s'il vous plait.
et accessoirement, je suis complètement open à toutes suggestions en ce qui concerne le foutoir dans mes modules, feuilles, macro,....
Merci
Pièce jointe 617722
Pièce jointe 617723
Pièce jointe 617724
Pièce jointe 617725
Pièce jointe 617726
Pièce jointe 617727
finalement je viens de trouver une solution....
voici la solution que j'ai trouvé :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Sub compteur2()
Range("A2").Select
Dim ra As Range
Dim F1 As Range
Dim DernLigne As Long
DernLigne = Range("b" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Garages").Range("b2:b" & DernLigne - 1)
Set ra = Range("A2")
ra.Value = 0
For Each c In F1
If c.Value <> "" Then
Set ra = ra.Offset(1, 0)
ra.Value = ra.Offset(-1, 0).Value + 1
Else: If c = "" Then Exit Sub
End If
Next c
End Sub |
