Utiliser la Range obtenue par Application.Inputbox

Version imprimable

Bonjour,

Je tiens à dire que j'ai vraiment cherché partout sur le net et sur différents sites, mais je n'ai pas trouvé l'information.
J'ai le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Dim ME as Range => J'ai compris que je devais supprimer cela et je viens de le faire ^^
    With Application
        .DisplayAlerts = False
        .DisplayStatusBar = True
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
        Range("CO1").Select
        On Error Resume Next
        ME = Application.InputBox(prompt:="Bonjour " & Application.UserName & Chr(13) & "Merci de cliquer sur le titre de la colonne souhaitée", Title:="Mois Exemple", Type:=8)
        On Error GoTo 0
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = False
        .DisplayStatusBar = False
    End With
    If ME.Address = ("CG1") Then
    Range("CG2") = T2 / 100
    Range("CG2").AutoFill Range("CG2:CG" & Range("CG65536").End(xlUp).Row)
    End If

J'obtiens une erreur sur :

Code:

If MoisETP.Address = ("CG1") Then

Je souhaite simplement récupérer la range saisie par l'application.inputbox. Je sais que "ME.address" me donnera la range, mais je souhaite écrire une formule dans la colonne de la range... Je sais qu'il existe des solutions alternatives du type "ME. copy destination:=Sheets("Feuil2").range("A1")
If Range("A1") = "CG1" then
blablabla
end if
mais je ne souhaite pas utiliser cela pour ma macro a moins d'y être absolument contraint.
:oops: Avez vous une solution pour moi ?

Edit : J'ai continué mes recherches et j'ai trouvé cela :

Code:

Set CME= ME.Item(1).Column

Je ne sais pas si je suis sur la bonne piste, mais je vais creuser dans ce sens. Je vous tiens au courant, ça pourrait aider quelqu'un d'autre ^^

J'ai réussi à contourner le problème pour que mon code fonctionne, mais j'aimerai tout de même l'optimiser parce que c'est encore au stade du "bidouillage" :S Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
With Application
        .DisplayAlerts = False
        .DisplayStatusBar = True
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
        Range("CO1").Select
        On Error Resume Next
        ME= Application.InputBox(prompt:="Bonjour " & Application.UserName & Chr(13) & "Merci de cliquer sur le titre de la colonne souhaitée", Title:="Mois Exemple", Type:=8)
        On Error GoTo 0
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = False
        .DisplayStatusBar = False
    End With
        Range("CG2:CT2", Selection.End(xlDown)).ClearContents
            If ME= "janv" Then
                Range("CH2") = "=T2/100"
                ElseIf ME= "fev" Then
                Range("CI2") = "=T2/100"
                ElseIf ME= "mars" Then
                Range("CJ2") = "=T2/100"
                ElseIf ME= "avril" Then
                Range("CK2") = "=T2/100"
                ElseIf ME= "mai" Then
                Range("CL2") = "=T2/100"
                ElseIf ME= "juin" Then
                Range("CM2") = "=T2/100"
                ElseIf ME= "juillet" Then
                Range("CN2") = "=T2/100"
                ElseIf ME= "août" Then
                Range("CO2") = "=T2/100"
                ElseIf ME= "septembre" Then
                Range("CP2") = "=T2/100"
                ElseIf ME= "octobre" Then
                Range("CQ2") = "T2/100"
                ElseIf ME= "novembre" Then
                Range("CR2") = "=T2/100"
                ElseIf ME= "décembre" Then
                Range("CS2") = "=T2/100)"
             End If

J'aimerai donc écrire cela différemment, sans les If et ElseIf, mais plutôt quelque chose qui ressemblerait à :

Citation:

Appliquer la formule "=T2 / 100" pour la colonne de la variable ME".

Bonjour,

Évite d'utiliser le mot ME qui est un mot réservé par VBA.
Ceci devrait te donner ce que tu souhaites, si je comprends bien
Code:

1 2 3 4 Dim Adresse As Range Set Adresse = Application.InputBox(prompt:="Bonjour " & Application.UserName & Chr(13) & "Merci de cliquer sur le titre de la colonne souhaitée", Title:="Mois Exemple", Type:=8) MsgBox Adresse.Address

Bonjour,

merci pour ton implication =)

En fait, je sais déjà faire ça mais je souhaite récupérer la lettre de la colonne en valeur variable pour ensuite écrire quelque chose comme

Citation:

Pour la ligne 2 de la colonne selectionnée, ecrire la formule "=T2/100"

Par exemple, l'utilisateur clique sur la cellule 2 de la colonne "CH" à "CS", je souhaite simplement récupérer l'information afin de dire à Excel que c'est sur la colonne choisie par l'utilisateur qu'il faut appliquer une formule "=T2/100"
En gros je voudrais quelque chose comme

Code:

Range(Columns(MoisETP).Row(2)) = "=T2/100"

mais je n'arrive pas à trouver le code :(

Edit :
Je viens de relire ton code plus calmement et j'ai remarqué le "Set" ^^
Je l'ai ajouté à mon code et je pense me rapprocher du but :D

Voilà ce que j'ai pour l'instant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 With Application .DisplayAlerts = False .DisplayStatusBar = True .CutCopyMode = False .ScreenUpdating = True End With Range("CO1").Select On Error Resume Next Set MoisE= Application.InputBox(prompt:="Bonjour " & Application.UserName & Chr(13) & "Merci de cliquer sur le titre du mois pour lequel nous calculons l'ETP", Title:="Mois Exemple", Type:=8) On Error GoTo 0 With Application .DisplayAlerts = True .ScreenUpdating = False .DisplayStatusBar = False End With Range("CG2:CT2", Selection.End(xlDown)).ClearContents ColE = MoisE.Column Range(ColE & Rows(2)) = "=T2/100" 'Erreur sur cette ligne à cause du "Row" ^^
Edit :
Et voilààààààà ! J'ai réussi ^^
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Voilà mon code final : With Application .DisplayAlerts = False .DisplayStatusBar = True .CutCopyMode = False .ScreenUpdating = True End With Range("CO1").Select On Error Resume Next Set MoisE = Application.InputBox(prompt:="Bonjour " & Application.UserName & Chr(13) & "Merci de cliquer sur le titre du mois pour lequel nous calculons l'ETP", Title:="Mois Exemple", Type:=8) On Error GoTo 0 With Application .DisplayAlerts = True .ScreenUpdating = False .DisplayStatusBar = False End With Range("CG2:CT2", Selection.End(xlDown)).ClearContents ColE = MoisE.Column Cells(2, ColE) = "=T2/100"
C'est bien meilleur que l'infame code avec les douze "If / ElseIf" ^^
Merci pour ton coup de pouce ! :D Ca m'a bien débloqué et c'est tout ce qu'il me manquait pour coder cela ^^

26/11/2015, 16h30
parmi

Tu écris

Citation:

Par exemple, l'utilisateur clique sur la cellule 2 de la colonne "CH" à "CS", je souhaite simplement récupérer l'information afin de dire à Excel que c'est sur la colonne choisie par l'utilisateur qu'il faut appliquer une formule "=T2/100"

Pas sûr de bien comprendre...
Est-ce que tu veux que la même formule soit inscrite sur toutes les colonnes (CH à CS) en ligne 2 ?
Est-ce que tu veux que la formule soit inscrite sur toute la colonne par la suite ?

Je souhaite que l'utilisateur sélectionne sa colonne et que la formule s'écrive dans toute la colonne sélectionnée.
C'est chose faite avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Voilà mon code final : 
    With Application
        .DisplayAlerts = False
        .DisplayStatusBar = True
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
        Range("CO1").Select
        On Error Resume Next
        Set MoisE = Application.InputBox(prompt:="Bonjour " & Application.UserName & Chr(13) & "Merci de cliquer sur le titre du mois pour lequel nous calculons l'ETP", Title:="Mois Exemple", Type:=8)
        On Error GoTo 0
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = False
        .DisplayStatusBar = False
    End With
        Range("CG2:CT2", Selection.End(xlDown)).ClearContents
        ColE = MoisE.Column
        Cells(2, ColE) = "=T2/100"

:) La formule est écrite dans la première ligne d'un tableau, et sera donc étendue à tout le tableau ^^

Merci parmi, le code est bon grâce à ton premier message :D

26/11/2015, 16h48
parmi

OK, je comprends mieux.
Je n'avais pas vu que c'était un tableau...

Bonne continuation !