Discussion :

[redstoff]

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 :

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

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

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

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

[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

[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

[Philippe Tulliez]

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 :

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

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

[Philippe Tulliez]

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 :

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

=DECALER(B4;1;0)

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

Code :

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

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