variable non définie
Cette variable doit être strictement la même que celle présente dans la 1° ligne de code qui commence par Dim
Il est possible que l’une soit D1 et l’autre Dl
Il est impératif d’avoir la même variable dans la 1° ligne :
Dim D1% …. ou Dim Dl% ……
que dans cette ligne de code
D1 = Ws.Range(« A » & Rows.Count).End(xlUp).Row
ou
Dl = Ws.Range(« A » & Rows.Count).End(xlUp).Row
et cette ligne de code :
For i = 2 To D1
ou
For i = 2 To Dl
Pas facile dans ces échanges de bien distinguer la bonne écriture
Regardes corriges éventuellement et dis moi
effectivement entre l et 1 ce n’est pas très lisible
j’ai opté pour le 1
maintenant ça bug à Next i
erreur de compilation
Next sans For
Peux tu me transmettre l intégralité du code il faut que je le regarde
Les next for if et end if ont un défaut de construction un oubli ou ajout malencontreux
Je ne peux pas te répondre comme ça
Envoie le moi
Je viens de constater qu à part le premier Block commençant par If tous les autres doivent commencer par ElseIf
Regardes ta toute première copie de écran concernant tout le code et fait à la identique pour les débuts de bloc
Corriges et dis moi
il met la ligne en rouge si je remplace If par Elself ; j’ai retirer le Then au bout de chaque ligne sauf le 1er block ; la ligne se dort plus en rouge mais
Exemple
ElseIf Ws.Cells(i 1).Value = « DETTES SOCIALES» Then
Et non
If Ws.Cells(i 1).Value = « DETTES SOCIALES » Then
Idem pour les autres lignes identiques qui suivent
c’est ce que j’ai fait sauf pour le 1er bloc mais les lignes sont en rouges ; erreur fin d’instruction
L’écriture ElsIf ne semble pas bonne
Si je compare avec ta toute première copie d’écran qui a cette instruction il n’y a pas le même caractère au niveau du « I »
Else « I » f
moi je vois ceci Else1f
C’est bien un E un l (L minuscule) un s un e un I (i majuscule) un f
Le Then en bout doit être impérativement maintenu
Si tu n’y arrives pas envoie moi ton fichier sans aucune donnée juste le cela me suffit
Je le corrigerai et te le renverrai pour que tu le récupère
c’est bizzard , j’ai pourtant écris avec le clavier et non avec les chiffres mais effectivement il y avait un souci de caractère ; j’ai fait un copié coller pour eviter de me tromper
ça à l’air de fonctionner
je vais tester avant de clôturer
merci
Bonjour,
j’ai re testé et tout fonctionne ; y a t-il néanmoins une solution pour ne pas voir apparaître sur les lignes les montants = à 0 € ?
merci
Bonjour
Merci du retour
Pour exclure les montants à 0€ exemple :
If Ws.Cells(i 3).Value <> 0 Then
Sheets(« Dettes & Créances »).Cells(Ligne5, 1).Value = Ws.Cells(i, 3).Value
En If
A répéter et adapter Cells(i, 3). pour toutes les lignes qui doivent exclure ce montant
A ta disposition si difficulté
C’est à dire ?
Qu’est ce qui ne marche pas ?
les 0 apparaissent où quelle colonne ?
dans la colonne B de l’onglet dette & créances ; en fait la ligne reste visible
onglet Import balance
Onglet dettes et créances
Attention j’ai bien noté de répéter la condition donnée pour toutes lignes qui doivent exclure ce montant !!
tus l as bien mis pour la cellule C :
If Ws.Cells(i 3).Value <> 0 Then ( Cells(i,3) 3° cellule de la ligne i traitée soit colonne C)
Mais cette condition n’est pas mise pour la cellule colonne Q soit la 17° colonne
Je ne vois pas de ligne de code identique pour cette 17° colonne soit :
If Ws.Cells(i,17).Value <> 0 Then
Sheets(« Dettes & Créances »).Cells(Ligne5, 2).Value = Ws.Cells(i, 17).Value
En If
J’avais pourtant indiqué de répéter les lignes en adaptant Cells(i,3) par ici Cells(i,17)
Tu ne l’as pas fais d’où ton constat
Toutes les lignes qui alimentent les différents onglets sont à traiter de manière identique pour exclure les 0€ si 0€ il y a à exclure
A toi d’analyser et de rajouter ces lignes en adaptant l’instruction Cells(i,3) en fonction
