Demander un numéro de colonne InputBox

Version imprimable

Bonjour j'aimerais initialiser un macro, qui serait capable de demander un numéro de colonne a copier via un Inputbox.
Puis dans un second temps de la coller dans une autre Feuil.
Voici le code sur lequel je suis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub copie_test() 'Copie du stock de la semaine derniere Sheets("Analyse S").Select Dim WSC As Variant WSC = InputBox("Entrez colone du stock semaine dernière", False) Sheets("Analyse").Select Range("WSC.Value").Copy Sheets("Analyse S").Select Columns("K").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
Quelqu'un peut m'aider, mon "semblant de code ne fonctionne pas ...

14/01/2016, 12h19
Jean-Philippe André

Salut,

l'utilisateur doit entrer quoi exactement comme valeur ?
- une seule lettre (la réponse D)?

Code:

Range(WSC & ":" & WSC).Copy

- deux lettre séparées par les deux points (la réponse D:D)

Code:

Range(WSC).Copy

- autre chose ?

Nous préciser quoi exactement :)
14/01/2016, 14h03
Yullll

Salut JPcheck,
J'ai essayé en mettant déjà

Code:

Range(WSC).Copy

Mais ça me met un message d'erreur quand je lui rentre CL:CL
Le message est : "La méthode Range de l'objet_global a échoué".
14/01/2016, 20h43
clementmarcotte

Bonjour,

Moi, je te dirais de remplacer ton InputBox() par un contrôle RefEdit. Une fois que ton utilisateur a cliqué, tu récupères un objet Range avec son adresse, son numéro de ligne, son numéro de colonne etc...

C'est pas mal plus simple que de décoder la réponse de l'InputBox() et de faire un contrôle de données à réveiller un mort.
14/01/2016, 21h29
Yullll

Bonsoir, je suis intéressé par ton refedit. Cependant je ne connais pas du tout cette fonction. Pourrais tu m aider pour le code ou m aiguiller vers un endroit où je peux trouver des infos dessus ?

Merci de ton aide
14/01/2016, 21h59
clementmarcotte

C'est un banal contrôle comme tous les autres. S'il n'est pas dans da boîte à outils, tu devrais le trouver dans les contrôles supplémentaires.
15/01/2016, 14h05
Yullll

Bonjour,
j'ai essayé de mettre un refEdit mais je n'ai vraiment pas réussi ...
Toujours besoin d'aide, personne n'a jamais une telle commande ??

Bonjour,

si c'est le NUMERO de colonne que tu veux, faut brider ton InputBox :

- n'autoriser que la saisie de chiffres entiers
- contrôler que le chiffre saisi peut représenter un numéro de colonne (histoire de pas travailler sur la colonne 1000000)

exemple rapide:

Code:

1
2
3
4
5
6
7
8
9
10
Sub MaColonne()
Dim LaColonne As Integer
    LaColonne = Application.InputBox("Quel numéro de colonne ?", , , , , , , 1)
    If LaColonne < 1 _
    Or LaColonne > ActiveSheet.Columns.Count Then
        MsgBox "Le Numero de colonne est incorrect"
    Else
        MsgBox "Vous avez choisi la colonne : " & LaColonne
    End If
End Sub

autre solution, tu peux proposer à l'utilisateur de sélectionner une ou plusieurs cellules située UNIQUEMENT dans la colonne que tu cherches

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub MaColonneParRange()
Dim LaColonne As Integer
Dim LaSelection As Range
    ' l'utilisateur doit directement cliquer sur une ou plusieurs cellules (elles doivent toutes être dans la même colonne)
    Set LaSelection = Application.InputBox("Choisissez une cellule de la colonne à utiliser ?", , , , , , , 8)
    If LaSelection Is Nothing Then Exit Sub
 
    If LaSelection.Columns.Count > 1 Then
        MsgBox "Votre sélection contient plus d'une colonne, annulation de la procédure"
        Exit Sub
    Else
        LaColonne = LaSelection.Column
        MsgBox "Vous avez choisi la colonne : " & LaColonne
    End If
End Sub

Bonjour JOE,

J'ai essayé ca m'ai je sais pas comment appeler la valeur dans mon range. Pourrais tu m'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MaColonne()
 
Dim LaColonne As Integer
    LaColonne = Application.InputBox("Quel numéro de colonne ?", , , , , , , 1)
    If LaColonne < 1 _
    Or LaColonne > ActiveSheet.Columns.Count Then
        MsgBox "Le Numero de colonne est incorrect"
    Else
        MsgBox "Vous avez choisi la colonne : " & LaColonne
    End If
 
    Sheets("Analyse").Select
 Range("LaColonne").Copy
 
    Sheets("Analyse S").Select
   Columns("K").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

LaColonne est un nombre qui représente le numéro de la colonne

si tu utilises un "Range", tu dois passer par la lettre de la colonne.

il est donc plus pratique de passer par le "Cells" qui est la même chose, sauf qu'on mentionne en "chiffres" la ligne et la colonne :

Range("C10") équivaut à Cells(10,3)

en premier la ligne, et ensuite la colonne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub MaColonne() Dim LaColonne As Integer LaColonne = Application.InputBox("Quel numéro de colonne ?", , , , , , , 1) If LaColonne < 1 _ Or LaColonne > ActiveSheet.Columns.Count Then MsgBox "Le Numero de colonne est incorrect" Else MsgBox "Vous avez choisi la colonne : " & LaColonne End If Sheets("Analyse").Cells("LaLigne",LaColonne).Copy Sheets("Analyse S").Range("K1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
Faut que tu indiques le numéro de ligne pour remplacer le "LaLigne"
Si en fait c'est toute la colonne que tu veux copier, alors tu remplace la ligne de code complète par :

Code:

Sheets("Analyse").Columns(LaColonne).Copy

on pourrait récupérer la lettre de la colonne, en utilisant ma deuxième proposition (l'inputbox où on sélectionne une cellule), et en splitant l'adresse de la cellule pour récupérer la colonne au format lettre.
M'enfin, c'est se compliquer la vie je pense

18/01/2016, 06h41
AlainTech

Bonjour Yullll,

As-tu essayé le deuxième code de joe.levrai dans le message #8?

Il y utilise un Application.InputBox de type 8.
Cet InputBox permet, à l'utilisateur, de cliquer sur une cellule et renvoie un objet Range.
C'est une alternative au contrôle RefEdit.