and j'ouvre une feuille excel et qu'ensuite j'ouvre la macro, je voudrais que les données écrites s'insère automatiquement.
dans le code, chaque lecture de donnée se fait en intégrant le numéro de cellule, ce que je voudrais, c'est pouvoir faire une sélection automatique en fonction de ce qu'il y a devant.
sub PRINCIPALE () 'si C10 = "toto" alors je vais dans la sub Multiplication_fretroutier_cas2 ' sinon je vais dans la sub Multiplication_fretroutier_cas1 if range("C10").value = "toto" then call Multiplication_fretroutier_cas2 else call Multiplication_fretroutier_cas1 end if end sub
Sheets(1).cells.clear
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Suppr_button() ' Suppr_button Macro ' Macro enregistrée le 06/07/2010 par j_reynet Dim Sh As Shape For Each Sh In ActiveSheet.Shapes 'pour chaque "forme" dans la feuille active Sh.Delete ' suppression de la forme Next End Sub
Sub Multiplication() 'definition de la plage contenant les données à multiplier Dim Ma_plage As Range Set Ma_plage = Range("A1:A3") ' Variable contenant le resultat de la mutliplication Dim Resultat As Variant Resultat = 1 For Each cell In Ma_plage 'pour chaque cellule de ma plage.... Resultat = Resultat * cell.Value 'multiplication des valeurs Next 'recopie dans la feuille Excel Sheets(1).Range("D1").Value = Resultat 'affichage dans msgbox MsgBox Resultat End Sub
quand je lance la macro, je veux que toto s'inscrive automatiquement dans la cellule.
Private Sub Workbook_Open() ' ceci te permet de déclencher des actions à l'ouverture de ton classeur ' Par exemple: un message Mess = MsgBox("Le classeur est ouvert ^^ ") End Sub
je veux qu'en lancant la macro ca s'inscrive tout seul dans la feuille
je veux que cela se fasse selon l'intitulé de la case avant (en colonne)
en fait les informations à écrire sont sur la feuille excel que je t'ai passé
il faut rentrer le nom de la cellule ("C10") hors ce que je souhaite c'est que le programme reconnaisse le nom de la cellule et exécute le calcul