Discussion :

[jeandani2012]

j'ai écris une code qui marche mais quand il s'agit de l'exécuter à partir d'un bouton il pose problème:
en fait il s'agit de copier dans les lignes vides des colonnes A et B les valeurs des lignes au dessus et de boucler ainsi de suite sur toute la plage:
voici donc le code que je veux exécuter à partir d'un bouton et là ça
ça marche même pas. quelqu'un a t il une idée ? s'il vous plaît!

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
Private Sub CommandButton2_Click()
 
 
Dim i As Integer, cel As Range
 
 
With Worksheets("Préparation déclaration FUE")
Application.ScreenUpdating = False
 
'boucle sur toutes les cellules des colonnes A et B
 
For Each cel In Range("A6:B" & Range("D25000").End(xlUp).Row)
    'si la cellule est vide, elle prend la valeur de la cellule du dessus
    If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value
Next cel 'prochaine cellule des colonnes A et B
 
End With
 
End Sub

[tompom3108]

Bonjour,
J'ai testé ton code. Il marche chez moi avec ou sans le bouton de commande.
Quel type d'erreur as-tu?
Autrement tu peux essayer de placer ton code dans un module avec un nom de procédure et de lancer la procédure par le bouton.

Mais je ne crois pas que ça change grand chose au problème...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test() 
Dim i As Integer, cel As Range, w As Worksheet 
Set w = Worksheets("Feuil1")
With w
Application.ScreenUpdating = False
'boucle sur toutes les cellules des colonnes A et B
For Each cel In Range("A6:B" & Range("B" & w.Rows.Count).End(xlUp).Row)
    'si la cellule est vide, elle prend la valeur de la cellule du dessus
    If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value
Next cel 'prochaine cellule des colonnes A et B 
End With 
End Sub

Appelle la procédure mais c'est pas ça le problème puisque ça marche pour moi dans les deux cas.

Code :

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

1
2
3
Private Sub CommandButton1_Click()
test
End Sub

[rvtoulon]

Bonjour,
si je comprend tu souhaites boucler sur les colonnes A et B de la feuille "Préparation déclaration FUE" et pour cela tu utilise un "With..... End With".

il faudrait juste mettre un "." devant les "Range" :
donc voici ton code

Code :

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

For Each cel In Range("A6:B" & Range("D25000").End(xlUp).Row)

le même avec les ".":

Code :

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

For Each cel In .Range("A6:B" & .Range("D25000").End(xlUp).Row)

[jeandani2012]

finalement j'ai rentré le code ci dessous et ça marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton5_Click()
 
Dim i As Integer, cel As Range
Worksheets("préparation déclaration FUE").Select
 
Application.ScreenUpdating = False
'boucle sur toutes les cellules des colonnes A et B
For Each cel In Worksheets("préparation déclaration FUE").Range("A6:B" & Worksheets("préparation déclaration FUE").Range("B" & Worksheets("préparation déclaration FUE").Rows.Count).End(xlUp).Row)
    'si la cellule est vide, elle prend la valeur de la cellule du dessus
    If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value
Next cel 'prochaine cellule des colonnes A et B
 
End Sub

en tous cas merci tompom3108 et rv toulon pour vos contribution respective.

A très bientôt.