Bonjour,
Je débute en excel et vba (mais vraiment à la ramasse :-)); Alors, voilà. J’ai crée une feuille « FACTURE » et maintenant je voudrais enregistrer quelques éléments de cette facture en ligne sur une autre feuille du même classeur afin de les traiter et en tirer un graphique; Si en plus je peux enregistrer une copie en PDF, ce serait le Top. J’ai suivi à la lettre la vidéo de Dr Excell mais dès les premières lignes du code, j’ai un bug.
Vous savez quelque chose à ce sujet ?
Merci d’avance et excusez du manque de clarté.
Voilà mon petit code : qu’est-ce qui cloche la dedans ?
Sub Archiver()
For Each Item In Sheets(« FACTURE »).Range(« A19:A37 »)
'rechercher le code pour étendre la selection vers le bas!!
If Item.Value = « » Then
Else
'archive le contenu de la ligne
ligne = Sheets(« Historique Factures »).Range(« A2 »).End(xlDown).Row + 1
ligne_origine = Item.Row
Sheets(« historique Factures »).Range(« A » & ligne).Value = Sheets(« FACTURES »).Range(« A15 »).Value
Sheets(« historique Factures »).Range(« B » & ligne).Value = Sheets(« FACTURES »).Range(« E7 »).Value
Sheets(« historique Factures »).Range(« C » & ligne).Value = Sheets(« FACTURES »).Range(« B15 »).Value
Sheets(« historique Factures »).Range(« D » & ligne).Value = Sheets(« FACTURES »).Range(« G48 »).Value
End If
Next Item
'reinitialise la facture
Sheets(« FACTURE »).Range(« A19:A37 »).ClearContents
Sheets(« FACTURE »).Range(« E19:E37 »).ClearContents
Sheets(« FACTURE »).Range(« M2 »).ClearContents
'clalcul du numero de facture suivant
Sheets(« FACTURE »).Range(« A15 »).Value = Sheets(« FACTURE »).Range(« A15 »).Value + 1
Bonjour
Est il normal de trouver dans ton code un onglet « FACTURES » et un onglet « FACTURE » l’un au pluriel l’autre au singulier
Si il sagit du même onglet il faut choisir la bonne écriture
singulier :
For Each Item In Sheets(« FACTURE »).Range(« A19:A37 »)
Peux tu me transmettre ton fichier avec quelques données non confidentielles et ton code qui te pose problème que je regarde
J avoue l avoir essayer en corrigeant le nom de l onglet et avec quelques données minimum sans difficulté
Il me faut l ensemble
J inclurai un traitement pour un enregistrement en pdf
La ligne ne présente aucun défaut d écriture
L onglet « FACTURE » existe t’il bien avec son nom à l identique exact sans blanc en début ou en fin
Idem pour l onglet « Historique_Factures »
La ligne de code :
ligne = Sheets (« Historique_Factures »).Range (« A2 »).End (xlDown).Row+1
Essaies de mettre à la place
ligne = Sheets (« Historique_Factures »).Range (« A65536 »).End (xlup).Row+1
Une précision
Les lignes de codes qui possèdent des guillemets ceux-ci doivent être impérativement retapés au clavier accolés à la donnée pour celles recopiées
A ta disposition si besoin avec un fichier c est l idéal pour résoudre ce type de difficulté les origines sont souvent liées à sa structure et non aux lignes de code donc en son absence on ne peut efficacement t aider