Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3573 connectés 

 


Dernière réponse
Sujet : [VB-Excel] automate modifiant du code
Aede merci beaucoup ca me redonne de l'espoir ...

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Aede merci beaucoup ca me redonne de l'espoir ...
Sylderon Je crois qu'il faut référencer dans ton projet VB ou ta feuille VBA la bibliothèque 'Microsoft Visual Basic 6.0 Extensibility' pour avoir accès aux modules de code
 
Désolé, je n'ai pas d'exemple sous la main.
 
A+
k1200 Je sais que sais possible de modiffier le code VBA par un macro VBA... mais je ne l'ai jamais fait...  
 
Regarde dans la doc sous VBE (Visual Basic Environement)
Aede up of the day :bounce:
Aede up :bounce:
Aede voila jai une procedure VB (une feuille Excel) qui me modifie le contenue de mes cellules (c sa macro qui le modifie )
 
or cette macro ne modifie que le contenue des cellules et jaimerais quil modifie aussi le code de certaines feuilles
 
le principe de cette feuille est de :
1: ouvrir la feuille
2: checker les cellules  
3: remplacer les string par d'autres
4: fermer et sauver
 
moi je voudrais avoir un 3bis qui regarde le code alt+F11 (VBA)
puis le modifie de la meme facon
 
quelqun saurait il comment faire ???  
 
un exemple du code existant :
 
"""""""""""""""""""""""""""""""""
 
    For Each ws In Worksheets
        ws.Activate
        Call UnprotectSheet(ws, SheetLocked)
         
        Set c = ws.Cells.Find("toto", LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
 
        Do Until (c Is Nothing)
             
            TypeFunction = 1
            c.Select
            c.Activate
            If ActiveCell.HasArray Then                     'if matrix present in the cell
                formule = Selection.Formula
                pos1 = InStr(formule, ";" )
                Toto = Left(formule, pos1)
                Field = Mid(formule, pos1 + 1, Len(formule) - pos1 - 1) & ","
                pos2 = InStr(Field, "," )
....
....
....
 
"""""""""""""""""""""""""""""""""""

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)