Bibliothéque cd macro pour automatiser help

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 25 janvier 2020, 13:47

Salut Kinder,

Une piste :
DerLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
k
kinder53
Jeune membre
Jeune membre
Messages : 48
Inscrit le : 9 juillet 2010
Version d'Excel : 2003

Message par kinder53 » 25 janvier 2020, 14:27

salut apt si je met ce code la macro ne fonctionne plus
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 25 janvier 2020, 14:57

essai comme ça :
Sub Ajout()
    Dim DerLigne As Long
    
    DerLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & DerLigne).Select
End Sub
k
kinder53
Jeune membre
Jeune membre
Messages : 48
Inscrit le : 9 juillet 2010
Version d'Excel : 2003

Message par kinder53 » 25 janvier 2020, 17:21

non plus apt,
ca copie plus bas
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 25 janvier 2020, 17:33

C'est ce que tu voulais, non ?

Te positionner sur la derrière ligne non-vide+1, pour ajouter un nouvel enregistrement ?
k
kinder53
Jeune membre
Jeune membre
Messages : 48
Inscrit le : 9 juillet 2010
Version d'Excel : 2003

Message par kinder53 » 25 janvier 2020, 17:37

ok ca a l'air de fonctionner
merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message