Sujet Précédent Sujet Suivant

Problème macro VBA

Résolu/Fermé
Soph - 6 avril 2010 à 12:08
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 7 avril 2010 à 08:57
Bonjour,

Je suis entrain de faire un modèle de facture sur Excel et j'ai créer une macro qui permet de mettre la facture à zéro. j'aimerai également que cette macro permette la conservation d'un historique de facture. J'ai réussi pour l'instant mais le problème c'est que mon historique de facture est présenté sous forme de tableau et l'historique se colle toujours dans la première ligne.

Sous VBA, ma macro se présente comme cela :

ActiveWindow.SmallScroll Down:=18
Range("A50:K50").Select
Selection.Copy
Sheets("Historique de factures").Select
Range("A4").Select CETTE CELLULE DOIT SE MODIFIER A CHAQUE ENREGISTREMENT
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facture automatisée").Select
Range("F53").Select
ActiveWindow.SmallScroll Down:=-15
Range("J9:K9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A18:B29").Select
Selection.ClearContents
Range("E18:E29").Select
Selection.ClearContents
Range("F31").Select
Selection.ClearContents
Range("F33").Select
Selection.ClearContents
Range("J34").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=6
Range("G37").Select
Selection.ClearContents
Range("C14").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-18
End Sub

Pourriez vous m'aider svp.
Merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
6 avril 2010 à 12:53
Bonjour Soph

macro légèrement simplifiée, essaies
au déclenchement de la macro tu dois être sur la feuille "facture automatisée" 
Sub archiver()

With Sheets("Historique de factures")
ligvid = .Range("A65536").End(xlUp).Row + 1
.Range(Cells(ligvid, 1), Cells(ligvid, 11)).Value = Sheets("Facture automatisée").Range("A50:K50").Value
End With


plage = Union(Range("F53"), Range("J9:K9"), Range("A18:B29"), Range("E18:E29"), Range("F31"), _
                            Range("F33"), Range("J34"), Range("G37"), Range("C14")).ClearContents

End Sub
0
Réponse 2 / 2
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
Modifié par pijaku le 6/04/2010 à 13:07
Bonjour,
Voici ton code avec quelques modifications : 
Range("A50:K50").Copy    
With Sheets("Historique de factures")  
.Range("A65536").End(xlUp).Offset(1, 0).Select    
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    
:=False, Transpose:=False    
End With  
Range("J9:K9").ClearContents    
Range("A18:B29").ClearContents    
Range("E18:E29").ClearContents    
Range("F31").ClearContents    
Range("F33").ClearContents    
Range("J34").ClearContents    
Range("G37").ClearContents    
Range("C14").ClearContents    
End Sub



EDIT : je n'ai pas vu la petite erreur avec le "select" du range("A65536"). Ce code fonctionne mieux : 
Range("A50:K50").Copy 
With Sheets("Historique de factures") 
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 
End With 
Range("J9:K9").ClearContents 
Range("A18:B29").ClearContents 
Range("E18:E29").ClearContents 
Range("F31").ClearContents 
Range("F33").ClearContents 
Range("J34").ClearContents 
Range("G37").ClearContents 
Range("C14").ClearContents


Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
0
Soph
6 avril 2010 à 17:06
Merci beaucoup. Ca marche super bien. C'est super :)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
7 avril 2010 à 08:57
Salut,
As tu au moins essayé le code de michel_m ci dessus?
C'est important, lorsque l'on débute de voir, et de tester, toutes sortes de solution...
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

Bonjour,
je cherche à transformer un chiffre en lettre dans excel mais sans macro.
Quelqu'un a déjà apporter une réponse génial à base d'une succession de formule =si() mais je n'arrive pas à la retrouver sur le forum.
Please aidez moi

6 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0

10 réponses