Discussion :

[demongin]

Bonjour,

Je dois copier le contenu d'une cellule (A1) dans une plage de cellule connue (A1:C600) avec un pas de 62 lignes dans les colonnes A et C.
Je pense que je dois réaliser une boucle, mais je ne sais pas vraiment sur quoi partir. J'ai déjà fait pas mal de chose en VBA, mais je ne me suis jamais frotté à cette fonction.

Pourriez-vous me donner un exemple que j'essaierai d'adapté à ma situation.

Merci par avance.

[Antoniom]

Slt Forum, demongin,

Inspire-toi de ceci..

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
    Dim i As Integer
 
    For i = 1 To 600 Step 62
        Cells(i, 1).Value = Cells(1, 1).Value
    Next i
 
End Sub

Bonne soirée !

[demongin]

Merci,

Est-il possible d'utiliser cela dans un module avec une macro de type Sub et non Private Sub, car je ne souhaite pas déclencher cette action par un bouton, mais l'inclure avec un autre processus ?

Autre petite question : ma cellule est en fait une fusion de plusieurs cellules et la destination est de taille identique ; est-ce un problème ? la référence à prendre en compte est seulement la cellule de la première ligne et la première colonne ou il faut modifier la macro pour prendre en compte une plage de cellule ?

[demongin]

J'ai écrie ce bout de code et il me pose un gros soucis.
Il copie bien ce que je demande à l'endroit voulu, mais Excel reste figé pendant 2 minutes environs sans qu'il soit possible de faire quoi que se soit, puis l'écran clignote comme si il y avait des centaines d'occurrences traitées, avant de retrouver la main et de voir le résultat.

Code :

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

1
2
3
4
5
6
7
8
9
Sub EnTete()
Dim x As Integer
For x = 1587 To 1761 Step 62
    Cells(1587, 97).Copy
    Cells(x, 97).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Next x
 
End Sub

Si vous pouviez m'aider, se serait cool, d'autant que je faire cela avec une plage de cellule et non une seule cellule et je ne vois pas bien comment mettre cela en forme.

[Antoniom]

Hello,

pour enlever l'effet sur l'écran, tu peux faire comme ceci..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EnTete()
Dim x As Integer
 
    Application.ScreenUpdating = False
 
For x = 1587 To 1761 Step 62
    Cells(1587, 97).Copy
    Cells(x, 97).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Next x
 
    Application.ScreenUpdating = True
 
End Sub

[demongin]

Merci,

Je connaissais cette commande, mais je pense que le problème venait d'ailleurs. En effet, j'ai avancé d'un pas (62 lignes) et plus aucun problème ; c'est quasi instantané.

Code :

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

1
2
3
4
5
6
7
8
9
Sub EnTete()
Dim x As Integer
For x = 1649 To 1761 Step 62
    Cells(1587, 97).Copy
    Cells(x, 97).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Next x
 
End Sub

Par contre, je bloque toujours pour adapter ce code à des cellules fusionnées.
Tous ce que j'ai testé est un échec pour le moment...
En attendant une âme charitable, je repart en quête car je dois avoir fini avant 16h30.