execution d'une macro a partir d'une cellule selectionnée

[tactic6]

Re tout le monde

Excel est il capable de reconnaitre une cellule sélectionnée et d'y exécuter une macro spécifique du genre effacer le contenu de la ligne où la cellule est sélectionnée et réécrire une formule correspondant à cette ligne en se servant des infos qui sont sur un modèle sur une autre feuille du même classeur?

j'ai essayé de joindre un classeur mais avec les formule du modèle même en n'y mettant que quelques lignes je dépasse largement les 50 Ko zippés

merci

 

[pascal21]

Re : execution d'une macro a partir d'une cellule selectionnée

bonjour
reduit encore ton classeur
peut-être en enlevant les couleurs de fond

 

[tactic6]

Re : execution d'une macro a partir d'une cellule selectionnée

Re
je n'arrive pas a réduire plus meme en supprimant les couleurs de fonds
tu n'aurais pas une autre idée pour réduire la taille ?

 

[kjin]

Re : execution d'une macro a partir d'une cellule selectionnée

Bonjour,
Peux tu le mettre sur cjoint.Accueil de Cjoint.com et mettre le lien ici
On tentera de le réduire par la suite pour le mettre sur le forum
A+
kjin

 

[tactic6]

Re : execution d'une macro a partir d'une cellule selectionnée

Merci pour l'astuce
le lien
avec quelques commentaires:

 

[kjin]

Re : execution d'une macro a partir d'une cellule selectionnée

Re,
Je joints le fichier sans les liaisons (avec un autre classeur et non une simple feuille du classeur !)
Il faut supprimmer les quotes devant les formules pour les réactiver
Juste une question : pourquoi ne pas utiliser directement le modèle pour faire les factures et le vider après enregistrement ? C'est fait pour ça non.
J'avoue ne pas trop comprendre le but de la chose.
A+
kjin

 

[tactic6]

Re : execution d'une macro a partir d'une cellule selectionnée

Re

pour répondre a ta question c'est uniquement au cas ou on se trompe dans une sélection d'article
la macro permettrait de corriger l'erreur sans tout effacer

Je joints le fichier sans les liaisons (avec un autre classeur et non une simple feuille du classeur !)
Il faut supprimmer les quotes devant les formules pour les réactiver

Là j'ai pas tout compris
j'espère éclairer ma lanterne avec ton code

Merci

 

[tactic6]

Re : execution d'une macro a partir d'une cellule selectionnée

re tout le monde
j'avance mais à pas de fourmis
j'ai reussi le début
mais je n'arrive pas à créer la suite
un peu d'aide ??

Dim Cellule As Range, Plage As Range
    Dim sStr As String, sRes As String
    Dim Cmpt As Long, Ptr As Long
   
    Set Plage = Application.InputBox( _
            "Sélectionner la plage à couvrir", _
            "Plage:", _
            ActiveWindow.Selection.Address(0, 0), _
            Type:=8)

 

[tactic6]

Re : execution d'une macro a partir d'une cellule selectionnée

Re

encore un bout mais après c'est trop dur
je voudrais que la macro sélectionne sur le modèle la même ligne et la réécrive la ou elle a précédemment effacé

For Each Cellule In Plage
   Selection.ClearContents
   Next

 

[tactic6]

Re : execution d'une macro a partir d'une cellule selectionnée

Re
peut être une solution toute simple
si j'arrive a limiter la plage de la macro a la colonne B ( de B15 à B52)
ça me le fait
est-ce réalisable ?
merci

Sub Efface_Sélection ()
Dim Cellule As Range, Plage As Range
    Dim sStr As String, sRes As String
    Dim Cmpt As Long, Ptr As Long
   
    Set Plage = Application.InputBox( _
            "Sélectionner la plage à couvrir", _
            "Plage:", _
            ActiveWindow.Selection.Address(0, 0), _
            Type:=8)
For Each Cellule In Plage
   Selection.ClearContents
   Next
End Sub