Discussion :

[hevy75]

Bonjour a tous
Et tout d'abord merci a cette communauté pour l'aide apportée

Voici mon soucis, je connais un peu la prog en php et je sais qu'il est possible dans ce langage de créer des variables dynamiques, dont le nom change en fonction d'une valeur incrementée par exemple.
Aprés des recherches infructueuses sur google et sur votre forum (j'ai vu des choses qui semblait proche de mon pb...mais je ne l'ai ai pas vraiment compris ) je ne vois que cette bouteille a la mer a vous lancer.

Je cherche a faire qq chose sur VBA dans ce genre...Mais marche pO

Je voudrait faire des "rechercher/remplacer" dans une feuille excel de facon dynamique (par l'intermediaire d'un "while" ou d'un "for") en fonction de la valeur incrémentée :

Ci dessous un exemple de ce que je cherche a faire et qui (je le sais) ne marche pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Titre1, Titre2, Titre3 As String
Dim Newtitre1, Newtitre2, Newtitre3 As String
Dim i As Integer

Titre1 = "COL1"
Titre2 = "COL2"
Titre3 = "COL3"

Newtitre1 = "NEWCOL1"
Newtitre2 = "NEWCOL2"
Newtitre3 = "NEWCOL3"

For i = 1 To 3
    Cells.Find(What:="Titre" & i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Replace What:="Titre" & i, Replacement:="Newtitre" & i, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next i

donc plus simplement je souhaite savoir comment faire pour que mon "Titre" & 1 soit considéré comme ma variable Titre1 et donc considéré comme COLS1

Facile non !!

J'espere etre assez clair dans mon explication.Merci d'avance

[grrimag]

Salut,

j'ai eu le même genre de problème il y a peu et j'ai utilisé une méthode efficace (bien que pas très jolie en programmation).

Tu crées 2 tableaux de string à 3 cases: Titre et newtitre. Et tu remplis les cases avec les valeurs. Ensuite, tu accèdes au contenu des cases grâce à ta boucle.

A tester...

[tirex28]

Bonjour,

Tu peux utiliser un tableau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Dim Titres()
 
    Titres = Array("Col1", "Col2", "Col3")
    'L'index du 1er element est egal à 0
 
    For i = 1 To 3
        Cells.Find(What:=Titres(i - 1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
    Next

Cordialement,

Tirex28/

[hevy75]

Hello a tous.

Merci pour ces deux réponses je test ca asap et je vous dis

Par contre si qq connait une méthode pour l'utilisation de "variable dynamique" je suis preneur"...

Merci d'avance a tous.

TchO

[AlainTech]

Un petit coup d'oeil à la méthode Evaluate...

[tirex28]

Bonsoir,

Comprend pas..

Un petit coup d'oeil à la méthode Evaluate...

Ca marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub evaluation()
    Dim Titre1 As String, i As Integer
    Titre1 = "COL1"
    i = 1
    MsgBox Evaluate("Titre" & CStr(i))
End Sub

Cordialement,

Tirex28/

[ouskel'n'or]

Regarde là, tu as tout en détail.
Tu peux aussi te créer tes variables de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Collection_Créer()
 Dim MaCollect  As New Collection
    ' Rempli la collection
    MaCollect.Add "Et alors ? ", "Un"
    MaCollect.Add "C'est ", "Deux"
    MaCollect.Add "quoi ", "trois"
    MaCollect.Add "ton problème ?", "Quatre"
    'Affichage
    MsgBox MaCollect("Un") & MaCollect("Deux") & MaCollect("trois") & MaCollect("Quatre")
End Sub

En remplaçant "Un", "Deux", etc., par le nom que tu souhaites leurs donner, tu as autant de variables que tu veux. Pour les utiliser, tu mets simplement MaCollect(LeNom)

[hevy75]

Bonjour à tous,

Le systéme de l'array fonctionne bien.....

Par contre comme demandé au dessus, je reste preneur pour une leçon sur la variable dynamique.
Donc je ne met pas résolu tout de suite ... j'attend 2 jours et aprés je clot mon post.

Encore merci à tous.

TchO