[Excel/VBA] Récuperer cellule dans un tableau

Version imprimable

19/02/2007, 13h39
Myogtha

[Excel/VBA] Récuperer cellule dans un tableau

Bonjour,

Je souhaite récuperer dans un tableau style temporaire les cellules de A1:A11 des feuilles appellé Mars,Avril,Mai afin de pouvoir faire plutard une requete SQL avec une clause difféerent de ses valeurs pour les feuille de Juin juillet....

C'est possible ? je n'arrive pas le copié collé ( en macro ça marche mais en vba non je comprends pas)

Merci d'avance

Jim

Edit : je voulais le mettre dans la rubrique VBA comment fait on pour modifier ça position ?
19/02/2007, 13h54
Frank

Voilà, c'est déplacé.
;)

Voici deux exemples, en espérant que cela ouvre des horizons

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
Sub DemoCopieCells()
 
    Dim varicopie       'Variable pour la copie
 
    Sheets("FeuillSource").Select       'se connecter sur la feuille source
 
        varicopie = Cells(4, 5).Value   'Incrémante la variable avec la valeur
                                         'de la cellule a la ligne 4 et colonne 5
    Sheets("FeullDestin").Select        'se connecter sur la feuille destination
 
        Cells(4, 5).Value = varicopie   'Incrémante la cellule 4,5 de la valeur "varicopie"
 
'----------------------------------------------------------------------------------
 
 
'--------------------------- Dans cet exemple nous utilison l'indice de boucle pour
'--------------------------- selectionner les cellules.
 
    For i = 1 To 200
        ' Copie 200 valeurs en colonne d'une feuille et les colle sur l'autre en ligne
 
        Sheets("FeuillSource").Select
            varicopie = Cells(i, 5).Value
        Sheets("FeullDestin").Select
            Cells(4, i).Value = varicopie
 
    Next i
 
End Sub

Hello,

pourquoi ne pas utiliser un truc du genre :

Code:

activeworkbook.Sheets("janvier").range("A1:A11").copy activeworkbook.Sheets("février).range("A1:A11")

Citation:

Envoyé par Gamal le Celte

Voici deux exemples, en espérant que cela ouvre des horizons

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
Sub DemoCopieCells()
 
    Dim varicopie       'Variable pour la copie
 
    Sheets("FeuillSource").Select       'se connecter sur la feuille source
 
        varicopie = Cells(4, 5).Value   'Incrémante la variable avec la valeur
                                         'de la cellule a la ligne 4 et colonne 5
    Sheets("FeullDestin").Select        'se connecter sur la feuille destination
 
        Cells(4, 5).Value = varicopie   'Incrémante la cellule 4,5 de la valeur "varicopie"
 
'----------------------------------------------------------------------------------
 
 
'--------------------------- Dans cet exemple nous utilison l'indice de boucle pour
'--------------------------- selectionner les cellules.
 
    For i = 1 To 200
        ' Copie 200 valeurs en colonne d'une feuille et les colle sur l'autre en ligne
 
        Sheets("FeuillSource").Select
            varicopie = Cells(i, 5).Value
        Sheets("FeullDestin").Select
            Cells(4, i).Value = varicopie
 
    Next i
 
End Sub

19/02/2007, 18h05
Gamal le Celte

Parce qu'il semble que la plage de cellule peu être différante. Ainsi plus de bornes dans la plage des valeurs à traiter.

Citation:

Envoyé par Myogtha

Bonjour,

Je souhaite récuperer dans un tableau style temporaire les cellules de A1:A11 des feuilles appellé Mars,Avril,Mai afin de pouvoir faire plutard une requete SQL avec une clause difféerent de ses valeurs pour les feuille de Juin juillet....
20/02/2007, 09h20
Myogtha

le bornage A1:A11 ne change pas, j'avais trouvé cette version ci avant de posté mais elle ne marchais pas et en regardant vos réponses j'ai ciompris mon pb :

Code:

Sheets(mois).Range("A2:A11").CopySheets("Statistique").Range("A80:A90")

Je colle donc dans une feuille présente, de façon caché les données de mes Mois, merci de vos infos quand même je vais regardais la différence par rapport à vos réponses.

Maintenant faut que je trouve un moyen de mettre un clause dans ma requete SQL pour lui dire dans les 10 nombres que tu vas me sortir tu oublies les 30 nombres que j'ai mis dans la feuille Statistique

Code:

ApproSQL10 = "SELECT TOP 10 Articles.Codeart, Articles.Désignation, Articles.Localisation, [QteThéorique]*[Prixachat] AS Montant, [Qtéstock]+[Qtéréser] AS QteThéorique FROM Articles WHERE ((Articles.Codeart>=100000000) AND ([Qtéstock]+[Qtéréser])<>0 AND (Articles.Dateachat>=#" & DateDeb & "#) AND (Articles.Dateachat<=#" & DateFin & "#)) ORDER BY 4 DESC"

Une idée ?