[VBA-E] référence à une plage

**doc funki** · 01/02/2007, 12h05

bonjour à tous,
une partie de la macro que je suis en train de faire doit copier une plage de cellule.
les étapes dans l'odre:
on choisi les fichiers à ouvrir (normalement 30 fichiers max au format txt)
on les ouvres tous et on le convertis pour avoir des colonnes bien séparées
on a alors ouvert "thisworkbook" et les fichier "01", "02","03"...jusqu'à "30"
on demande quelle(s) cellule(s) nous interresse(nt)
on selectionne donc les cellules sur le dernier fichier ouvert ("30")
une variable contient ces cellules (ex: [D1:D7] en tous cas c'est ce que j'aimerais)

Set liste = Application.InputBox( _
prompt:="sélectionnez les cotes capa", Type:=8)

il est vrai que je veux copier les valeurs, mais j'aimerais avoir à ne selectionner qu'une seule fois les cellule, et ensuite copier ces cellules de chaque fichier, puisque je veux d'abord traiter les cellules avant de copier dans "thisworkbook" c'est là que je bloque. j'ai peur de pas être assez clair, voici un éxemple de traitement (désolé çà doit être brouillon pour vous mais je suis débutant)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
liste.Select  (forcément ne marche pas)
            Selection.Copy
            Range("Q1").Select (pour éviter de compter Q=17)
            ActiveSheet.Paste
            compteurligne = liste.Count
            For counter = 1 To compteurligne
                  Cells(counter, 18).Select
                  If Cells(counter, 17) < 0 Then ActiveCell.FormulaR1C1 = "=ABS(RC[-1])"
                  ActiveCell.FormulaR1C1 = Cells(counter, 17)
 
            Next counter
            Cells(1, 19).Select
            ActiveCell.FormulaR1C1 = "=max(RC[-1]:R" & compteurligne & "C[-1])"
            Workbooks("capafpsa").Worksheets("feuille de saisie").Cells(i, j).FormulaR1C1 = Abs(ActiveCell - op2) * 2

en tous cas je vous remercie de votre temps et si ce n'est pas clair, n'hésitez pas (va y'avoir une avalanche là...lol).

**ouskel'n'or** · 01/02/2007, 13h36

Bon, je réponds à un bout avant d'aller manger

Tu as deux solutions pour copier les données de ta liste. La première copie les cellules et donc en même temps les format de cellule (encadrements, couleurs...)

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 doc_funki()
Dim Liste As Range
Set F2 = Worksheets("Feuil2")
Set F3 = Worksheets("Feuil3")
plage = "A14:D14,A21:D21,D3,D5,E5,F5,G3"
'Plage = Application.InputBox(prompt:="sélectionnez les cotes capa", Type:=8)
Set Liste = Range(plage)
F3.Activate
For Each LaCellule In Liste
    Range(LaCellule.Address).Select
    F2.Range(LaCellule.Address).Copy
    F3.Paste
Next
End Sub

La seconde copie le seul contenu des cellules

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub doc_funki()
Dim Liste As Range
Set F2 = Worksheets("Feuil2")
Set F3 = Worksheets("Feuil3")
plage = "A14:D14,A21:D21,D3,D5,E5,F5,G3"
'Plage = Application.InputBox(prompt:="sélectionnez les cotes capa", Type:=8)
Set Liste = Range(plage)
For Each LaCellule In Liste
    F3.Range(LaCellule.Address) = F2.Range(LaCellule.Address)
Next
Exit Sub

C'est toi qui choises...
On verra + tard pour la suite

A+

**doc funki** · 01/02/2007, 14h03

bah je vais manger un bout aussi alors en attendant...
merci

**ouskel'n'or** · 01/02/2007, 14h23

Pour la suite

Code :

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

1
2
3
4
5
6
7
'F3.Activate 'Pense à activer la bonne feuille avant les lignes suivantes...
... si tu n'indiques pas le nom de la feuille
'
For Each LaCellule In Liste
    If Cells(LaCellule.Row, 17) < 0 Then LaCellule.FormulaR1C1 = "=ABS(RC[-1])"
    Cells(LaCellule.Row, 18) = Cells(LaCellule.Row, 17)
Next

A+

**doc funki** · 01/02/2007, 14h39

je te remercie pour ta réponse, mais là n'était pas le problème (désolé...ou bien je n'ai pas compris, posible aussi)
je vais essayer de mieu réexpliqué les étapes

1) avec filepicker j'ouvre 30 fichier appelé "01" jusqu'à "30"
2) le classeur actif est alors "30"
3) liste = inputbox...type := 8
liste contient le contenue de la plage???ou l'adresse de la plage [D2:D7]? liste est déclaré as range
4) j'entre dans une boucle pour travailler sur chaque fichier l'un après l'autre
4) le classeur actif est "01"
5) j'aimerais effectuer le traitement sur les cellules selectionné avant la boucle sur le fichier "30" à l'étape 3 mais je n'arrive pas à récuper la plage [D2:D7] pour la selectionner sur le fichier "01"
6) je traite les donées sur le fichier "01" et je passe au fichier "02" et ainsi de suite jusqu'au "30"

j'éspèr que le problème est bien exposé cette fois, merci à toi

**ouskel'n'or** · 01/02/2007, 16h57

C'est malin, ça. Va falloir ajouter du code

Je regarde.

Envoyé par Tu

mais j'aimerais avoir à ne selectionner qu'une seule fois les cellule, et ensuite copier ces cellules de chaque fichier, puisque je veux d'abord traiter les cellules avant de copier dans "thisworkbook"

- Où veux-tu copier ces cellules ? (en premier)
- Sur des lignes qui s'incrémentent ?
- Quel traitement veux-tu leur "administrer" ?
et en dernier,
- Que copies-tu dans ThisWorkBook,
- A quel endroit ?
A+

NB - Je préfère le français au code... La preuve, je n'avais pas compris

Edit
Tu sais qu'on peut faire ça ?

Code :

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

1
2
3
For Each LeFichier In Application.Workbooks
    MsgBox LeFichier.Name
Next

**ouskel'n'or** · 01/02/2007, 18h36

Tiens, en espérant avoir compris...

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
Sub doc_funkiBis()
Dim Liste As Range
Dim Ad As Range
Dim Plage As String
Dim LeFichier As Workbook
Dim LaFeuille as Worksheet
    'Donc, tous tes fichiers sont ouverts
    'Je suppose que tu travailles sur une seule feuille puisque...
    '...  ton fichier émane d'un .txt
    'Plage = Application.InputBox(prompt:="sélectionnez les cotes capa", Type:=8)
    'De mon côté, je prends une plage bidon et, pour chaque classeur ouvert,
    'l'instancie et réalise les opérations
    Plage = "B14:D14,A21:D21,D3,D5,E5,F5,G3"
    For Each LeFichier In Application.Workbooks
        Debug.Print LeFichier.Name
        Set LaFeuille = LeFichier.Worksheets("Feuil1")
        Debug.Print LaFeuille.Name
        Set Liste = LaFeuille.Range(Plage)
        For Each LaCellule In Liste
            Debug.Print LaCellule.Row
            'j'entre dans une boucle pour travailler sur chaque fichier,
            '... sur les cellules de la liste
            'Ma question : Tu travailles sur chaque cellule de la plage ?
            'Si oui, c'est ici !
            'Attention : on ne travaille que sur les lignes des cellules...
            '... de la liste, et ça, je ne suis pas sûr d'avoir bien compris (???)
            If Cells(LaCellule.Row, 17) < 0 Then Cells(LaCellule.Row, 17).FormulaR1C1 = "=ABS(RC[-1])"
            Cells(LaCellule.Row, 18) = Cells(LaCellule.Row, 17)
            'Si tu travailles sur les cellules de la liste, tu dois mettre
            If Cells(LaCellule.Row, LaCellule.Column) < 0 Then LaCellule.FormulaR1C1 = "=ABS(RC[-1])"
        Next 'On passe à la cellule suivante
        Set LaFeuille = Nothing
        Set Liste = Nothing
    Next 'On passe au fichier suivant
End Sub

Tu dis
A+

Edit
pour voir les noms des fichiers, des feuilles et les N° de lignes de la plage, affiche la fenêtre Exécution dans l'éditeur VB -> Affichage -> ...
Ton programme fini, tu pourras effacer les lignes "Debug.print...

**doc funki** · 01/02/2007, 19h25

ok je vais essayer en français en prenant un éxemple, c'est un peu long (je crois)

1) j'ouvre le fichier dans lequel j'ai fais la macro, ce sera sur ce fichier que seront copiées les valeurs-->OK
2) je lance la macro-->OK
3) on me demande de choisir dans le repertoire prévu les fichier à ouvrir-->OK
4) ces fichiers s'appels "01.txt", "02.txt", "03.txt", la macro les ouvres avec excel en faisant de belles colonnes et tout et tout...-->OK
sur ces fichiers, je trouve une série de valeur avec:
en colonne A: le type (distance, point, Ø, cylindre, plan...peu importe)
en colonne B: le nom (plan A, ØB, distance r1r2...peu importe)
en colonne C: l'axe concerné (x, y, z, peu importe)
en colonne D: la valeur mesurée (aaa enfin, la colonne qui m'interresse)
et encore des bricoles jusqu'en colonne j, le nombre de ligne est très variable en fonction du nombre de cote exporté au format txt

5) inputbox me demande quel valeur je veux copier. si je selectionne une seule valeur (le fichier actif est "03" puisque c'est le dernier ouvert), pas de souci, j'extrais le numéro de la ligne de la valeur sélectionné, et la colonne est invariablement la colonne 4. moins facile si je selectionne une ou plusieurs plages
prenons le cas le plus facile: une seule cote

6) j'active "01" et je copie la valeur trouvé en [ligne,4]dans le fichier de départ en A1 (je simplifie)
7) j'active "02" et je fais pareil, je copie en A2
8) "03" pareil en A3 etc
je ferme tout et me retrouve avec un seul fichier ouvert (le fichier de départ), et le tableau de valeur rempli.-->OK
j'ésper que c'est clair jusque là car je n'ai pas encore de souci.

si je reprend à l'étape 5) mais cette fois je selectionne [D2:D7] car il se trouve que j'ai 6 points et que je veux copier la valeur absolue maxi entre ces 6 points dans mon fichier de départ. à ce moment je suis sur "03".

6) j'active "01", pour extraire la valeur absolue maxi, je veux d'abord copier [D2:D7] vers [Q1:Q6] de la même feuille, avec la formule excel j'obtiens la valeur absolue de ces dernières en [r1:r6], et toujours avec la formule excel j'obtiens le max([r1:r6]) en s1, valeur que je veux copier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Selection.Copy 'selection doit à ce moment être [D2:D7], ce que je n'arrive pas à faire...
            Range("Q1").Select (pour éviter de compter Q=17)
            ActiveSheet.Paste
            compteurligne = liste.Count
            For counter = 1 To compteurligne
                  Cells(counter, 18).Select
                  If Cells(counter, 17) < 0 Then ActiveCell.FormulaR1C1 = "=ABS(RC[-1])"
                  ActiveCell.FormulaR1C1 = Cells(counter, 17)
 
            Next counter
            Cells(1, 19).Select
            ActiveCell.FormulaR1C1 = "=max(RC[-1]:R" & compteurligne & "C[-1])"
            Workbooks("capafpsa").Worksheets("feuille de saisie").Cells(i, j).FormulaR1C1 = activecell

7) j'active "02" et je fais pareil, je copie en A2 etc....

donc mon problème actuellement est que je n'aarive pas à sélectionner [D2:D7] lorsque j'active "01", puis "02". j'utilise liste=inputbox pour selectionner les cellules.

je sais que le traitement marche parce que si je n'ouvre que un seul fichier "01", et que je rajoute

Code :

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

liste.select

juste avant la première ligne, çà marche...

je m'arrête là parce que je crois que plus j'en rajoute, plus je complique

**doc funki** · 01/02/2007, 19h25

oups, j'étudie ta réponse que je n'ai pô vu

**doc funki** · 01/02/2007, 19h44

debug.print lefichier.name (çà sert à quoi??)ne marche pas car chez moi car:

dim lefichier as variant pour pouvoir l'utiliser avec filepicker

de plus plage doit être "String" pour pouvoir l'utilisé avec inputbox...

je te remercie pour le temps que tu passe sur mon pb, j'éspère qu'on va pouvoir avancer un peu

**ouskel'n'or** · 01/02/2007, 19h48

J'ai bien déclaré Plage as string
Mais j'ai instancier Liste as range + loin
Debug.Print : Pour afficher certaines données intéressantes, tu affiches la fenêtre Exécution dans l'édituer VB -> Menu Affichage -> Fenêtre Exécution
A+

**ouskel'n'or** · 01/02/2007, 20h02

J'ajoute juste une remarque.
Le code que j'ai mis te donne le principe te permettant en quelques lignes (retire les remarques

) de travailler sur tous les fichiers et sur les mêmes adresses de cellules.
Si les cellules varient, et que tu les connais, tu peux créer un tableau d'adresses Plage()
A+

**doc funki** · 01/02/2007, 20h25

pardon jme suis viander,

"plage" doit être "object" pour l'utiliser avec inputbox
"lefichier" doit être "variant" pour l'utiliser avec filepicker pour faire ce que j'en fais
et pour la fenêtre execution ya rien qui se passe dedans

désolé je l'ai dis je suis novice, j'ai appris avec des bases de pascal et des heures de lectures de l'aide microsoft (oups!)

merci encore, je m'arrête pour aujourd'hui, çà suffit, je reprends demain...good night

**ouskel'n'or** · 01/02/2007, 22h34

Non, pas avec mon code. Plage doit être un string. Pourquoi en faire un objet que tu ne pourras pas instancier pour chaque fichier ? C'est ça le but si la plage est bien identique pour tous les fichiers.
Sinon, comme je t'ai dit, tu devras définir la plage dans un tableau et instancier chaque élément du tableau pour chacun des fichier.
Ça c'est si tu veux traiter tous les fichiers dans une simple boucle
A demain entre midi et 2 si j'ai une minute...

**doc funki** · 02/02/2007, 10h10

ok c'est cool, au moins j'ai compris que si je déclare "plage" en "string", je peux récupérer les cellules selectionnées et j'utilise liste=lafeuille.range(plage) pour pouvoir sélectionner les mêmes plages sur chaque fichier.
Le problème c'est que chez moi si je déclare "plage" en "string", la macro ne se lance même pas, directe il me dit que inputbox demande un objet....ç'aurais été trop bô dis donc....

définir la plage dans un tableau?? oula çà se complique pour moi là...

veu bien essayer si tu m'éxplique le principe....

alé merci et @+, vais me prendre la tête encore un peu en attendant, fô vraiment aimer se casser le cerveau!!!

**doc funki** · 02/02/2007, 12h19

pffffffffffffffff, c'est chô tendu

alors, ma première erreur: j'ai mis "set liste=application.inputbox...type:=8"
en enlevant "set" je peux déclarer "liste" en string, mais dans ce cas "type" ne peut pas être ":=8", j'ai mis ":=0", à ce moment: "liste = "=D2

7" " et dans ce cas "plage" qui est range ne peut pas être "=activesheet.range(liste)" puisqu'il y a un "=" en trop que je ne peut pas extraire avec les fonctions right et left puisque liste est variable (ex: D2

7;D15

18...).

j'ai l'impression que j'approche du but mais c'est toujours pas çà (je viens de me relire, c'est vrai que c'est cho a comprendre comme çà...)

**ouskel'n'or** · 02/02/2007, 12h27

Type n'est pas obligatoire dans Inputbox. Pour saisir une plage, contente toi de mettre

Code :

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

Plage = InputBox("Saisir ce que tu veux", "Titre")

Ainsi tu n'auras aucun pb
Je ne pensais pas qu'un simple inputbox pose pb, alors je n'avais pas tilté

**doc funki** · 02/02/2007, 12h42

je ne met rien pour le type, dans ce cas, plage prends la valeur de la première cellule de la plage selectionnée...

ducoup,

Code :

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

set liste=activesheet.range(plage)

renvoi: erreur défini par l'application ou par l'objet...

plage est déclarer en string
liste en range

**ouskel'n'or** · 02/02/2007, 13h18

Si tu saisis B14:D14,A21:D21,D3,D5,E5,F5,G3 dans un inputbox, tu as Plage = "B14:D14,A21:D21,D3,D5,E5,F5,G3"

Code :

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

1
2
3
4
Sub inputboxPourDo_Funki()
plage = InputBox("Saisir la plage", "Titre", "B14:D14,A21:D21,D3,D5,E5,F5,G3")
MsgBox plage
End Sub

Et ensuite, si tu mets, dans l'ordre indiqué

Code :

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

1
2
3
4
5
6
7
8
    For Each LeFichier In Application.Workbooks
        Debug.Print LeFichier.Name
        Set LaFeuille = LeFichier.Worksheets("Feuil1")
        Debug.Print LaFeuille.Name
        Set Liste = LaFeuille.Range(Plage)
        For Each LaCellule In Liste
             Debug.Print LaCellule.Row
             'etc.

Debug.Print LaCellule.Row te donne la ligne de toutes les cellules de la plage pour chaque feuil1 de chaque classeur.

**SfJ5Rpw8** · 02/02/2007, 13h31

! attention ne pas confondre inputbox (de VB..) et Application.inputBox (sous excel...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub tdest()
  Dim r As Range
  Set r = Application.InputBox("plage", Type:=8)
  MsgBox r.Address 'Affiche la sélection
 
  Dim c As Range '
  For Each c In r 'Parcours les cellules de la plage
     Debug.Print c.Address & " ==> " & c 'voir fenêtre exécution CTRL G
  Next
End Sub

[VBA-E] référence à une plage

Macros et VBA Excel

Discussions similaires

Partager

Partager