Discussion :

[bigmousse69]

Bonjour,
J'aimerais créer une variable dans laquelle j'aimerais rentrer ce type de donnée :

Code :

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

A1:A6

Pour plus de détails, je voudrais créer une fonction dont les arguments puissent être selectionné par l'utilisateur en cliquant sur la cellule de son choix. Exactement comme une fonction excel standard.
Merci

[Qwazerty]

Salut
Tout simplement

Code :

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

1
2
3
4
5
 
Function Minibus(Plage As Range) as String
'Plage représente les cellules pointées
'traitement ...
End Function

Pour l'utilisation dans une cellule

Code :

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

=Minibus(A1:C8)

Après pour gérer l'objet Plage dans le corps de ton code, je te suggère de regarder l'aire sur Range.

A++
Qwaz

[bigmousse69]

Salut
Merci pour ta reponse
Mais je viens de remarquer que ce type de variable est de type objet...
Comment traiter l'information situer dans cette objet comme la valeur d'un cellule.
En gros, j'aimerais creer une fonction qui me permettrais d'extraire la valeur pour des coordonnées données.
Exemple :


A B C D E F G H
achat

1
2 Paul 7
3
4


J'aimerais donc créer une fonction qui en lui donnant les references (Achat, Paul) elle me renvoie la valeur de 7.
Pour ceci je doit faire un test pour chque cellule de la 1ere ligne et colonne pour trouver les coordonnées.
La difficulté ce sont les variables, car il se peut que la reference se situe sur la feuille où je pose la fonction, mais le range où je dois faire le test sur une autre feuille....
Merci pour vos conseils

[patbou]

Bonjour,

Tu peux récuperer la plage sélectionnée ans chaque feuille

Code :

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

1
2
3
4
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Address
End Sub

[Qwazerty]

Salut
A mon avais nul besoin de vba pour faire cela, joins nous un fichier avec ton organisation.
Commence a regarder l'aide sur les formule suivante
Decaler, Equiv

A++
Qwaz

[CodeFacile]

Avec un inputbox , on peut se débrouiller . On peut même selectionner plusieurs plages disjointes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set plage = Application.InputBox(prompt:="Selectionner la plage souhaitée ", Type:=8)
 
liste = ""
For Each Cel In plage.Cells
liste = liste & " cellule : L " & Cel.Row & "C" & Cel.Column & Chr(10)
Next
 
MsgBox "Vous avez selectionné : " & liste
 
next