Excel- erreur de compilation et syntaxe Fermé

Question

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!  




Configuration: Mac OS X / Safari 534.48.3

Utilisateur anonyme · Answer

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

lermite222 · Answer

Bonjour,
Ca pourrait te donner des idées
A+

michel_m · Answer

"doublons multiples"
https://forums.commentcamarche.net/forum/affich-23322541-vba-erreur-13-aidez-moi-svp

lermite222 · Answer

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.

Excel- erreur de compilation et syntaxe

4 réponses

Discussions similaires