[VBA-E]Selection dynamique avec souris de plages de cellules

**geeksideofme** · 03/05/2007, 12h46

quand je fait un:

Code :

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

1
2
3
Dim plage1 As Range
 
Set plage1 = Application.InputBox(prompt:="Selectionnez la plage à transposer ", Type:=8)

comment savoir directement, dans quelle feuille de quel classeur se trouve la plage que j'ai selectionné ??

j'ai essayé:

Code :

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

1
2
3
4
Dim CL1 As Workbook
Dim Fl1 As Worksheet
Set CL1 = ActiveWorkbook
Set Fl1 = CL1.ActiveSheet

mais ca ne me donne pas ce que je cherche

**SilkyRoad** · 03/05/2007, 19h21

bonjour

Tu peux utiliser

Code :

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

1
2
3
4
5
6
Dim Plage1 As Range
 
Set Plage1 = Application.InputBox(prompt:="Selectionnez la plage ", Type:=8)
 
MsgBox Plage1.Parent.Name
MsgBox Plage1.Parent.Parent.Name

michel

**ouskel'n'or** · 04/05/2007, 11h28

Déjà un truc : Est-ce bien ainsi que tu as instancié tes objets ?

Dim CL1 As Workbook
Dim CL2 As Workbook
Dim Fl1 As Worksheet
Dim Fl2 As Worksheet
Set Fl1 = plage1.Parent.Parent
Set Fl1 = plage2.Parent.Parent
Set Fl1 = plage1.Parent
Set Fl2 = plage2.Parent

Parce que les Set Fl1 pour 3 objets différents, c'est le dernier qui a le dessus

Déjà, si tu corrigeais ça

A+

**ouskel'n'or** · 04/05/2007, 11h58

Tu n'as plus le message d'erreur ?

**ouskel'n'or** · 04/05/2007, 12h29

C'est bien ce qu'il me semblait. Je n'ai pas testé pour rien et le résultat est bien ce qu'il me semblait. La seule adresse que tu peux obtenir en réussissant à faire ce que tu "as l'air" de vouloir obtenir (!!!) c'est l'adresse de la celule, non l'adresse complète Book.Feuille.range
Mes tests ?

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
Sub Parent()
Dim Plage1 As Range
Dim Plage2 As Range
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim Fl1 As Worksheet
Dim Fl2 As Worksheet
Set Plage1 = Application.InputBox(prompt:="Selectionnez la plage ", Type:=8)
 
Set Fl1 = Plage1.Parent
Set CL1 = Fl1.Parent
'Set CL2 = Plage2.Parent.Parent
'Set Fl2 = Plage2.Parent
j = 12
i = 11
'MsgBox Plage1.Address
'MsgBox Fl1.Name
'MsgBox CL1.Name
MsgBox Workbooks(CL1.Name).Worksheets(Fl1.Name).Cells(j, i).Address
End Sub

Tu vas devoir réviser ta syntaxe pour obtenir

='[D:\Les docs\LeFichier.xls]LaFeuille'!LeRange

Là, je vais voir s'il reste quelque chose à manger

A+

**AlainTech** · 04/05/2007, 12h35

L'utilisation de RefEdit serait tellement plus simple...

Trop simple?

**ouskel'n'or** · 04/05/2007, 13h26

Hello Alain, peut-on utiliser RefEdit ailleurs que dans un userform ? Tu aurais un exemple ?
A+

**AlainTech** · 04/05/2007, 13h32

Je n'ai jamais cherché à le faire mais...

Où est le problème de créer une petite Form pour remplacer l'InputBox?

**ouskel'n'or** · 04/05/2007, 13h39

Envoyé par AlainTech

Je n'ai jamais cherché à le faire mais...

Où est le problème de créer une petite Form pour remplacer l'InputBox?

La sélection manuelle des cellules.

**AlainTech** · 04/05/2007, 13h42

Envoyé par ouskel'n'or

La sélection manuelle des cellules.

Ben, justement, RefEdit sert à ça!

**AlainTech** · 04/05/2007, 13h48

Par contre, je viens de voir une limitation.

Si on peut bien sélectionner ce qu'on veut dans le classeur actif, il n'est pas possible d'accéder aux menus et, donc, de changer de classeur.

Maintenant, si on fait une ouverture/activation du classeur dans lequel on veut sélectionner une plage avant de faire la sélection, ça devrait résoudre le problème.

**ouskel'n'or** · 04/05/2007, 14h54

J'ai regardé ton code de plus près... Ce que tu veux faire, c'est transposer tes données d'un classeur sur l'autre... Alors il y a beaucoup plus simple
Colle des données sur une feuille toute neuve d'un classeur tout neuf comportant deux feuilles (ou +) et teste ça. Si c'est ce que tu veux obtenir, tu dis, on adaptera pour deux classeurs

Code :

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

1
2
3
4
5
6
7
8
Sub Transposer()
i = 5
j = 12
 
    Range(Cells(1, 1), Cells(i, j)).Copy
    Sheets("Feuil2").Range("K1").PasteSpecial Paste:=xlPasteAll, _
        Transpose:=True
End Sub

Tu dis
A+

Edit
Pour lancer la macro, place-toi sur la feuil1

**illight** · 04/05/2007, 15h01

C'est pas la meme discussion ici :

http://www.developpez.net/forums/sho...d.php?t=324794

Ou j'avais fourni peut etre une mini-solution ?

**ouskel'n'or** · 04/05/2007, 15h06

J'ai l'impression que c'est une simple transposition des données. Le pb avec ta solution, elle n'inverse pas les lignes et les colonnes. Enfin, si geeksideofme passe par là, on saura tout

**ouskel'n'or** · 04/05/2007, 18h24

Bref, tu peux faire ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TransposerSurDeuxClasseursDifférents()
Dim Plage1 As Range
Dim Plage2 As Range
Dim Fl1 As Worksheet
Dim Fl2 As Worksheet
    Set Fl1 = Workbooks("Classeur1").Worksheets("Feuil1")
    Set Fl2 = Workbooks("Classeur2").Worksheets("Feuil1")
    Fl1.Activate
    Set Plage1 = Fl1.Application.InputBox(prompt:="Selectionnez la plage ", Type:=8)
    Fl2.Activate
    Set Plage2 = Fl2.Application.InputBox(prompt:="Selectionnez la cellule", Type:=8)
    Plage1.Copy
    Plage2.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
End Sub

Si ça ne donne pas le résultat que tu souhaites, tu dis

NB - Pour la plage où tu colles, tu peux ne choisir que la cellule en haut et à gauche de la plage

**ouskel'n'or** · 07/05/2007, 14h07

Tiens, ton pb m'intéressait et pour me faire pardonner d'avoir mal lu ta question, je t'ai fait ça. Sans doute peut-on simplifier le code mais je te laisserai le soin de le faire. Pour la compréhension, je pense que ce sera plus aisé ainsi (?)
Option Explicit

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub CopierCollerDunClasseurDansLautre()
Dim Plage1 As Range
Dim Plage2 As Range
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim Fl1 As Worksheet
Dim Fl2 As Worksheet
Dim Tableau, NoCol(), NoLig()
Dim LigDep1, ColDep1, LigDep2, ColDep2, i
Dim Cel As Range
    Set CL1 = Workbooks("Classeur1")
    Set CL2 = Workbooks("Classeur2") 'Tu remplaces par la ligne suivante
    'Set CL2 = Workbooks.Open("D:\xls\TonFichier.xls")
    DoEvents
    Set Fl1 = CL1.Worksheets("Feuil1")
    Set Fl2 = CL2.Worksheets("Feuil2")
    Fl1.Activate
    Set Plage1 = Fl1.Application.InputBox(Prompt:="Selectionnez la plage ", Type:=8)
 
    'Pour récupérer les NoLigne et colonne de début de plage, on crée un tableau
    'qui sépare les adresses de début et de fin de plage
    '(ex : "$B$12:$N$25" -> "$B$12")
    Tableau = Split(Plage1.Address, ":")
    LigDep1 = Range(Tableau(0)).Row 'ligne de départ de la plage ds Fl1
    ColDep1 = Range(Tableau(0)).Column 'Column de départ de la plage
 
    'Création des tableaux des adresses de la plage sélectionnée dans Fl1
    'Pour relever les adresses des cellules de Fl1, on s'affranchit de
    'la colonne et de la ligne de départ
    i = 0
    For Each Cel In Plage1
        ReDim Preserve NoCol(i)
        NoCol(i) = Cel.Column - ColDep1 'Tableau des colonnes dans Fl1
        ReDim Preserve NoLig(i)
        NoLig(i) = Cel.Row - LigDep1 'Tableau des lignes
        i = i + 1
    Next
 
    Fl2.Activate
    Do 'on vérifie qu'une seule cellule a été sélectionnée
        Set Plage2 = Application.InputBox(Prompt:="Selectionnez la plage ", Type:=8)
        If InStr(Plage2.Address, ":") > 0 Then msgox "Ne sélectionner qu'une cellule"
    Loop While InStr(Plage2.Address, ":") = 0
 
    'Dans Fl2, CL2, on récupère les No de colonne et de ligne de début de plage
    LigDep2 = Plage2.Row 'Ligne de départ ds Fl2
    ColDep2 = Plage2.Column 'Colonne de départ
 
    'Collage des données : pour copier, on lit chaque cellule de Plage1
    'Pour coller, on part d'une cellule Plage2.address
    i = 0
    For Each Cel In Plage1
        Fl2.Cells(NoCol(i) + LigDep2, NoLig(i) + ColDep2).FormulaLocal = "='[" & CL1.Name & "]" & Fl1.Name & "'!" & Cel.Address
        i = i + 1
    Next
End Sub

J'espère que ce n'était pas un simple exercice, sinon je m'en voudrais

A+

NB - Pour le fichier que tu ouvres, tu peux le passer en paramètre
Tu peux de même passer les deux fichiers si ta macro se trouve dans un troisième...

**ouskel'n'or** · 07/05/2007, 17h02

Pour les classeurs, si tu en changes, tu mets

Code :

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

Set Cl1 = activeWorkbook 'au sortir de l'input

idem pour le 2
Quant à la feuille

Code :

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

Set fl1 = Cl1.activeSheet 'au même endroit mais après ^^^

**ouskel'n'or** · 08/05/2007, 14h25

Envoyé par Tu

au fait, est ce qu'il y a un InputBox à plusieurs champs de saisie?

Je corrige ici aussi. Faut toujours vérifier s'con dit. On peut parfaitement saisir plusieurs plages en même temps, sur la même feuille de calculs -> Sélection de la première plage -> Ctrl appuyé -> Sélection de la seconde plage -> Ctrl appuyé -> Sélection de la plage suivante... hétsétéras. A partir de mon code :

Code :

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

1
2
3
4
5
6
7
8
    Fl1.Activate
    Set Plage1 = Fl1.Application.InputBox(Prompt:="Selectionnez la plage ", Type:=8)
    nbreDePlages = Plage1.Areas.Count
    msgbox nbreDePlages 
    TableauDesPlages = Split(Plage1.Address, ",")
    For i = 0 To UBound(TableauDesPlages)
        MsgBox TableauDesPlages(i)
    Next

L'est vrai que je ne l'ai jamais utilisé.
Je corrige mon post précédent pour cacher mon erreur

[VBA-E]Selection dynamique avec souris de plages de cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager