Discussion :

[Wolf_SC]

Bonjour

Imaginons que je doive remplacer "BI" par "BE" dans une plage de cellules, je fais :

Code :

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

1
2
3
4
Range("O9:AE34").Select
Selection.Replace What:=BI, Replacement:=BE, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

La plage de cellules contient des formules de type "='Nom de la feuille'!BI8" (nom de la feuille qui varie, nom colonne fixe, numéro ligne varie).

Dans mon cas, je sais pas d'avance quelle est la colonne (ici "BI") mais je sais par quelle colonne je dois la remplacer. Je me demande si il y a une astuce ou si je suis dans une impasse (ce qui m'obligerait dans mon programme à réécrire toutes les formules avec les noms de feuilles qui vont avec...)

Merci pour votre aide

[Quentin77170]

Salut à toi,

Je ne suis pas certain de bien comprendre ta demande... Mais il est très simple de ne pas spécifier directement la feuille mais plutôt de passer par une variable objet de type feuille excel ou plage de cellules Excel (ou n'importe quel type d'objet...)

C'est d'ailleurs comme ça qu'il est très préférable de travailler !

Si tu veux que le nom de la feuille soit variable, alors tu peux, par exemple, procéder ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Feuille As Worksheet
Dim Plage As Range
 
Set Feuille = Sheets(1) ' ou Sheets("Feuil1") ou tu peux boucler avec For Each Feuille In ThisWorkbook.Sheets
Set Plage = Feuille.Range("O9:AE34") 'encore Feuille.Range(Cells(9,"O"),Cells(34,"AE")) ou autre...
 
'à partir de là, si tu veux inclure le nom de ta Feuille dans une formule, tu peux mettre :
Feuille.Range("A1").Formula = "='" & Feuille.Name & "'!BI8"
 
'Pour revenir à ton exemple (j'ai rajouté les guillemets à la première ligne):
Plage.Replace What:="BI", Replacement:="BE", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Bon, je ne pense pas répondre à ton besoin, mais ça peut te donner quelques éléments pour avancer un peu... À mon avis, explique mieux ton problème car j'ai beau le relire, je ne comprends pas vraiment ce que tu as et ce que tu désires obtenir

Quentin

[Quentin77170]

Après, un autre petit truc que je bidouille mais y'a peut-être mieux :

Si tu veux récupérer une colonne à partir d'une cellule sur VBA, tu peux faire :
Colonne = Range("A1").Column
MsgBox Colonne

Mais tu vas récupérer l'index de la colonne, donc dans le cas ci-dessus "1", ce qui n'est pas intéressant dans ton cas car tu as besoin de la valeur en lettres, donc tu peux utiliser ce genre de bidouillage :

L'adresse de la cellule t'est donnée par VBA sous forme de : $COLONNE$LIGNE ex : Range("A1").Address te donnera "$A$1"
Ce que je fais à partir de là, est que je décompose cette adresse en utilisant comme séparateur "$" et je récupère la 2ème valeur (la première valant "", la seconde "A" et la troisième "1") comme suit :

Code :

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

1
2
3
4
5
Décomposition = Split(Range("DI18").Address,"$")
'à partir de là, Décomposition a 3 valeurs : Décomposition(0) = "",Décomposition(1)="DI",Décomposition(2)="18"
'donc : 
Colonne = Décomposition(1)
MsgBox "La colonne choisie est : " & Colonne

En espérant que ça t'aide un peu... Si quelqu'un a mieux à proposer, je suis preneur

[antonysansh]

Bonjour à tous,

Voilà une fonction pour remplacer la colonne dans une formule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function remplacer_nom_colonne(formule As String, colonne As String) As String
    Dim s1$, s2$, s3$, s4$, i&
    s1 = Mid(formule, 1, InStr(formule, "!"))
    s2 = Mid(formule, InStr(formule, "!") + 1)
    For i = 1 To Len(s2)
        If IsNumeric(Mid(s2, i, 1)) Then
            s4 = s4 & Mid(s2, i, 1)
        Else
            s3 = s3 & Mid(s2, i, 1)
        End If
    Next
    remplacer_nom_colonne = s1 & colonne & s4
End Function

Je vous l'accorde, elle peut surement être mieux écrite que ça.

Ensuite voilà une proc pour changer toutes les formules d'un range à l'aide de la fonction remplacer_nom_colonne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim rg As Range, t(), i&, j&
    Set rg = Sheets("Feuil1").[A1:A30]
 
    t() = rg.Formula
    For i = 1 To rg.Rows.Count
        For j = 1 To rg.Columns.Count
            t(i, j) = remplacer_nom_colonne((t(i, j)), "B")
        Next j
    Next i
 
    rg.Formula = t()
End Sub

Ici le range [A1:A30] de la feuille 1.

Je te laisse adapter à ton cas.

[Wolf_SC]

Non tu ne réponds pas à la question (en même temps elle est très tordue) mais merci pour ton aide !

Autre question qui peut m'aider (pas besoin de lire mon premier message pour y répondre) : comment avoir le numéro de la colonne à partir du nom de la cellule ? Il doit y avoir une fonction (ex : "B1" => la fonction donne la colonne 2).

[Wolf_SC]

Ah merci vous avez répondu plus vite que moi.

[antonysansh]

Je ne réponds pas à ton problème avec ce post#4 ?

[Wolf_SC]

Bon ça marche apparemment Mille fois merci

Par contre certaines cellules de la plage ne contiennent pas de formule, du coup ça écrit le nom de la colonne dedans. Faudrait voir si je peux mettre un If.

[antonysansh]

C'était une base de réflexion.
C'est parfois très utile de mettre un Range dans un tableau, de travailler sur le tableau et ensuite remettre le tableau dans le Range.
Idem avec Range.Formula

Mon exemple est très succin, mais l'idée est là, tu dois juste modifier la fonction. Si le paramètre formule est vide alors la fonction doit renvoyer vide.

[Wolf_SC]

Problème résolu.

Je vais essayer d'y penser la prochaine fois que je travaille avec un Range. Mais il y a aussi la fonction qui est astucieuse (séparer ce qu'il y a avant et après "!" et intercaler le nom de la colonne, ce que je cherchais).

[antonysansh]

Bonjour à tous,

Voilà une fonction pour remplacer la colonne dans une formule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function remplacer_nom_colonne(formule As String, colonne As String) As String
    Dim s1$, s2$, s3$, s4$, i&
    s1 = Mid(formule, 1, InStr(formule, "!"))
    s2 = Mid(formule, InStr(formule, "!") + 1)
    For i = 1 To Len(s2)
        If IsNumeric(Mid(s2, i, 1)) Then
            s4 = s4 & Mid(s2, i, 1)
        Else
            s3 = s3 & Mid(s2, i, 1)
        End If
    Next
    remplacer_nom_colonne = s1 & colonne & s4
End Function

Je vous l'accorde, elle peut surement être mieux écrite que ça.

Voilà une fonction un peu plus "propre" :

Code :

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

1
2
3
4
5
6
7
8
Function changer_colonne(formule As String, colonne As String) As String
    If formule = "" Then Exit Function
        Dim t() As String, c1&, c2&
            t() = Split(formule, "!")
            c1 = Range(t(1)).Column
            c2 = Range(colonne & "1").Column
        changer_colonne = t(0) & "!" & Range(t(1)).Offset(0, c2 - c1).Address(0, 0, xlA1)
End Function