aide sur commande

Version imprimable

aide sur commande

Bonjour je cherche une commande qui recopiera des cellules dans d'autre
le truc c'est que cellule sont séparer par d'autre cellule que je ne dois pas copier donc j'ai testé un truc dans le genre mais ça ne réagit pas bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim l As Long   'l comme ligne
Dim c As Long   'c comme colonne
 
l = 0
boucle:                                  
With Range("ao23")                      
For c = 0 To 22 Step 2                 
.Offset(l, c) = Range("i10").Offset(l, c)  
Next c                                  
End With                                 
If l < 40 Then                          
l = l + 4                                 
GoTo boucle                              
End If

les valeurs ne se recopient pas la où elles le doivent à partir de la 3e ligne

si quelqu'un peut m'aider à savoir pourquoi

merci

05/01/2011, 13h33
Philippe Tulliez

Bonjour,
Pour t'aider, il faudrait savoir ce qui ne va pas et ce que tu veux, parce-que Mis à part que le 'goto' sauf pour le 'on error' est une instruction à proscrire ton code ne bug pas.
05/01/2011, 13h39
redstoff

son ma fenêtre

la commande me recopie bien la 1ère ligne
la 2e ligne également

la 3e ne se recopie pas
la 4e se recopie a la place de la 5e ligne
la 5e ligne ne se recopie pas
la 6e se recopie a la place de la 8
la 7e ne se recopie pas
la 8e se recopie à la place de la 11

voila le problème si tu as besoin de plus d'explication demande moi

petite question supplémentaire (qui n'a rien à voir avec le pb)

une case fusionner sur excel comment vb l'interpretre t il?

avec le .offset

disons que la case fusionner est a1 avec a2

si je met range("a1").offset(1,0).select

il ira sur la case a3? ou il se dira qu'il est sur a2?
05/01/2011, 14h21
Philippe Tulliez

Bonjour,
Lorsque tu fusionnes plusieurs cellules d'une même ligne la référence est faites sur la colonne de gauche. Donc si l'on fusionne les cellules D4:H4 la référence est D4, pour les lignes, B4:B8 la référence sera B4
05/01/2011, 14h24
redstoff

oui ça ok mais en vb

si tu as une cellule fusionner b4:b8

en vb tu marques

range("b4").offset(1,0).select

il te mettre sur la case b9?

ce que je ne comprend pas dans ma commande c'est copie bien les données en horizontale mais en verticale il fait n'importe quoi

Bonjour,
Je ne sais toujours pas ce que tu souhaites copier.
D'après ton code, c'est une copie des cellules "I10:AE50" vers la cellule "AO23:BK63" et ce en ne prenant qu'une ligne sur 4 et 1 colonne sur 2.
Voici un code donnant le même résultat mais sans 'goto'
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub boucle() Dim l As Long 'l comme ligne Dim c As Long 'c comme colonne For l = 0 To 40 Step 4 For c = 0 To 22 Step 2 With Range("AO23") .Offset(l, c) = Range("i10").Offset(l, c) End With Next c Next l End Sub

05/01/2011, 14h59
Philippe Tulliez

Citation:

si tu as une cellule fusionner b4:b8
en vb tu marques
range("b4").offset(1,0).select
il te mettre sur la case b9?

Oui et c'est curieux car si tu le fais avec la fonction DECALER il ne donne pas le même résultat. Il lit réellement B5 et renvoie 0

Code:

=DECALER(B4;1;0)

Place ce code pour connaître l'adresse de la cellule traitée.

Code:

debug.print Range("B4").Offset(1, 0).Address