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

Version imprimable

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:

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).

Bon, je réponds à un bout avant d'aller manger :lol:
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:

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:

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+

01/02/2007, 14h03
doc funki

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

Pour la suite

Code:

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+

01/02/2007, 14h39
doc funki

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
01/02/2007, 16h57
ouskel'n'or
C'est malin, ça. Va falloir ajouter du code :mouarf:
Je regarde.

Citation:

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:

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

Tiens, en espérant avoir compris...

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
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...

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:

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:

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

01/02/2007, 19h25
doc funki

oups, j'étudie ta réponse que je n'ai pô vu
01/02/2007, 19h44
doc funki

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:roll:
01/02/2007, 19h48
ouskel'n'or

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+
01/02/2007, 20h02
ouskel'n'or

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+
01/02/2007, 20h25
doc funki

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
01/02/2007, 22h34
ouskel'n'or

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...
02/02/2007, 10h10
doc funki

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à...8O 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!!!
02/02/2007, 12h19
doc funki

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:D7" " 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:D7;D15:D18...).

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 çà...)
02/02/2007, 12h27
ouskel'n'or

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

Code:

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é :arf:
02/02/2007, 12h42
doc funki

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:

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

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:

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:

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.

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

Code:

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

02/02/2007, 13h46
ouskel'n'or

En l'occurence, afin de pouvoir instancier en boucle la plage pour une feuille déterminée de plusieurs fichiers, il ne doit pas instancier la saisie de l'inputbox.
Juste pour préciser le contexte. ;)
Merci de ta précision, bbil, je ne connaissais pas cette différence.
02/02/2007, 13h48
doc funki

je vais essayer mais appriori, lorsque inputbox s'ouvre, si tu clique sur les cellules qui t'interesse, plage prends la valeur de la première cellule selectionnée, si tu spécifie type:=0 plage sera "=D2:D7" auquel cas il faut que j'arrive à extraire "="
type:=8 ne marche pas
mais effectivementsi tu écris avec ton clavier D2:D7 dans inputbox çà marche.

merci pour ton aide
02/02/2007, 14h00
ouskel'n'or
Ok, je comprends mieux le problème, j'ignorais que tu sélectionnais les plages directement dans la feuille. Je pensais que tu saisissais les adresses.
Autant pour moi.
Je comprends mieux la subtilité indiquée par bbil ;)
Suffit d'appuyer sur Ctrl pour saisir plusieurs cellules ou plages de cellules
Le code pour obtenir les adresses dans Plage :
Code:

1 2 3 4 5 Dim r As Range Dim Plage as string Set r = Application.InputBox("Saisir ", Type:=8) Plage = r.Address Debug.print Plage
Tu modifies, doc funki
A+
02/02/2007, 14h05
doc funki

yessssssssssssssssssss

apparement çà marche comme çà.......merci beaucoup a tous les 2, j'ai plus le temps là mais je testerais correctement ce soir.

merci encore, à ce soir, je metterais "résolu". yeahhhhhhhhhhhhhh
02/02/2007, 14h07
ouskel'n'or

Merci bbil ;)
02/02/2007, 20h09
doc funki

ok les gars çà marche au poil, merci pour tout, big up:mrgreen: