Discussion :

[lebeniste]

bonjour,
j'ai créé une macro qui copie une selection de ligne, la macro fonctionne mais il y a un maximun ,,, je m'explique :

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
Sub G()
'
' G Macro
' Macro enregistrée le 2008-03-29 par André
'
 
'
    Sheets("bd").Select
    Rows("2:30").Select
    Selection.Insert Shift:=xlDown
    Range("A3").Select
    Sheets("SHOP").Select
    Range("A7:G29,A34:G56,A61:G83,A88:G110,A115:G137,A142:G164,A169:G191,A196:G218,A223:G245,A250:G272,A277:G299,A304:G326,A331:G353,A358:G380,A385:G407,A412:G434,A439:G461,A466:G488,A493:G515,A520:G542,A547:G569,A574:G596").Select
    Selection.Copy
    Sheets("bd").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A3").Select
    Sheets("SHOP").Select
    Application.CutCopyMode = False
    Range("A7").Select
    Sheets("bd").Select
End Sub

je ne peux pas ajouter de ligne plus loin que la g 596 ?????

y-a une raison?????

[Gorfael]

bonjour,
j'ai créé une macro qui copie une selection de ligne, la macro fonctionne

C'est extraordinaire : moi, la simple macro

Code :

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

1
2
3
4
Sub Test()
Range("A7:G29,A34:G56,A61:G83").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub

Refuse de fonctionner. Même si je sélectionne en manuel La plage (A1:A2;C8:C10), Excel me fait un KK nerveux
Peux-tu me donner la version que tu utilises (moi, c'est la 2003) ?
A+

[Invité]

Bonjour,

Pour sélectionner des cellules non contigues, maintenir Ctrl appuyé et cliquer sur les cellules (en tout cas sur Excel 2000).

Et le code de sélection de Lebeniste fonctionne aussi.

En ce qui concerne le problème Lebeniste :

n'y aurait-il entre la feuille source et la feuille destination des différences de formatage : par exemple des cellules fusionnées ?

[lebeniste]

version 2003 aussi .....

pour se qui est du ctrl et selection j'ai essayer , il ne depasse pas la meme ligne .....

[Abed_H]

Bonsoir
Pour sélectionner des cellules non contigues, utiliser la méthode Union(.....)

Code :

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

1
2
3
4
5
6
7
Sub Test()
Dim Plage As Range
Sheets("SHOP").Select
  Set Plage = Application.Union(Range("A7:G29"), _
              Range("A34:G56"), Range("A61:G83"))
  Plage.Copy Destination:=[BD!A1]
End Sub

Bonne soirée

Abed_H

[lebeniste]

desolé rien a faire il ne copie pas les données excedent 596 ,,,

que faire ????