J'ai développé une macro qui permet de saisir des lignes comptables dans un budget.
le principe, c'est de vérifier d'abord si la référence a déjà été saisie avant de la (re)créer.
L'outil de saisie est sur la Feuil1 et la Feuil2 est l'onglet où sont recopiées les données.
Pour trouver si la référence existe, je passe par ce bout de code parce que je n'arrive pas à gérer le find + with, ca me retourne une erreur.
le problème avec ce code c'est que c'est bcp plus long à tourner donc j'aimerais bien savoir comment le gérer avec un "with"
Code:
sheets("Liste budget").activate
Cells.Find(what:=ref).activate
'ligne de la référence
X = ActiveCell.Row
'colonne de la référence
j = ActiveCell.End(xlToRight).Column + 1
'référence
Cells(X, j).Value = refd
j'espère que tout est clair sinon n'hésitez pas à me poser des questions
Dim c As Range, x As Long, j As Long
With Sheets("Liste budget")
Set c = .Cells.Find(what:=ref)
'ligne de la référence
If Not c Is Nothing Then
x = c.Row
'colonne de la référence
j = c.End(xlToRight).Column + 1
'référence
.Cells(x, j).Value = refd
End If
End With
sans plus de détails difficile... petite info quand même, l'argument "destination" de la méthode "autofill" doit inclure la source, ce qui ne semble pas être le cas...
en fait j'insère une ligne à la fin d'un tableau et j'aimerais que les formules présentes dans la ligne du dessus soient "autofillées" aux cellules de la nouvelle ligne créée
après en passant par l'enregistreur de macro ca sort une formule du type
Code:
Selection.AutoFill Destination:=Range("C45:D46")
pour moi le C étant la source, et le D étant la destination :s
du coup je ne vois du coup pas trop ce qui bloque
magnifique
et je n'avais pas compris l'histoire de la source pour l'autofill mais avec ton code je vois du coup
encore merci !!! et bonne journée à tout le monde malgré le temps !