Discussion :

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

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 ?

[Frank]

Voilà, c'est déplacé.

[Gamal le Celte]

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

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

[cafeine]

Hello,

pourquoi ne pas utiliser un truc du genre :

Code :

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

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

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

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

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

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

[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 :

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

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 :

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

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 ?