Excel- erreur de compilation et syntaxe
smiley_face246
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je tente désespérément de créer une base de données dans excel qui se doit d'être simple à la base. Cependant, mon projet devient ambitieux et je me trouve bloquer à une étape stupide.
J'explique mon projet: je tente de créer une base de données qui me permettra de d'avoir dans une feuille toutes mes valeurs et informations sur mes clients. Je voudrais ensuite avoir une autre feuille où je pourrais consulter mes informations, supprimer celles qui ne sont plus nécessaires et faire des modifications... Le tout à partir d'une autre feuille où j'ai créé une bande de menu déroulante qui me permet de consulter mes clients. je tente maintenant d'insérer une macro qui me permettra d'aller supprimer le client que je suis en train de consulte automatiquement. J'ai tenté de faire une cellule liée et de la mettre dans la macro, mais cela ne semble pas fonctionner pour le moment. Voici ma macro:
Sub suppression_enregistrement()
'
' suppression_enregistrement Macro
'
'
Sheets("BD Générale").Select
Rows((Sheets ("Param"). Application. Goto Reference:="param_no_ligne") + 1).Select
Selection.Delete Shift:=xlUp
End Sub
C'est tout simple, mais cela ne fonctionne pas et je suis débutante dans VBA. Je suis ouverte à toutes suggestions!!
SVP j'ai besoin de vos conseils!!!!
Merci! Mille fois!
Je tente désespérément de créer une base de données dans excel qui se doit d'être simple à la base. Cependant, mon projet devient ambitieux et je me trouve bloquer à une étape stupide.
J'explique mon projet: je tente de créer une base de données qui me permettra de d'avoir dans une feuille toutes mes valeurs et informations sur mes clients. Je voudrais ensuite avoir une autre feuille où je pourrais consulter mes informations, supprimer celles qui ne sont plus nécessaires et faire des modifications... Le tout à partir d'une autre feuille où j'ai créé une bande de menu déroulante qui me permet de consulter mes clients. je tente maintenant d'insérer une macro qui me permettra d'aller supprimer le client que je suis en train de consulte automatiquement. J'ai tenté de faire une cellule liée et de la mettre dans la macro, mais cela ne semble pas fonctionner pour le moment. Voici ma macro:
Sub suppression_enregistrement()
'
' suppression_enregistrement Macro
'
'
Sheets("BD Générale").Select
Rows((Sheets ("Param"). Application. Goto Reference:="param_no_ligne") + 1).Select
Selection.Delete Shift:=xlUp
End Sub
C'est tout simple, mais cela ne fonctionne pas et je suis débutante dans VBA. Je suis ouverte à toutes suggestions!!
SVP j'ai besoin de vos conseils!!!!
Merci! Mille fois!
4 réponses
-
Bonjour,
En supposant que [ param_no_ligne ] est une référence à une cellule :
Ex.:
Sub Suppression() Dim Ligne As Long Sheets("Param").Select Range("param_no_ligne").Select Ligne = ActiveCell.Offset(1, 0).Value Sheets("BD Générale").Select Rows(Ligne).Select Selection.Delete Shift:=xlUp Range("A" & Ligne).Select End Sub '
Cdt
Lupin -
Bonjour,
Ca pourrait te donner des idées
A+ -
"doublons multiples"
https://forums.commentcamarche.net/forum/affich-23322541-vba-erreur-13-aidez-moi-svp -
Pour couper cour...
A mettre dans un module général (OBLIGATOIRE)Option Explicit Public param_no_ligne as Long Sub SupprimeLigne() 'Pour le teste param_no_ligne = 6 Sheets("Feuil1").Rows(param_no_ligne).Delete End Sub
C'est aussi simple que ça !!
A+
Edit : Pour le N° de ligne ?param_no_ligne = ActiveCell.Row + 1
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
