Discussion :

[Vadorblanc]

Bonjour
J'essaie de copier la cellule BN10 jusqu'à la dernière ligne en fonction de la colonne A, et j'ai un bloquage sur

Code :

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

(.Cells

Que manque t'il à ma macro ?

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 ValueBN10 As Long 'si le contenu de la cellule B7 est numerique mettre Long ou integer a la place de String
Dim Cel As Range
Application.DisplayAlerts = False
 
 
 Sheets("Base").Range("BN10").Copy
 
            'Colle cellule à la 10è ligne en collage spécial valeurs si cellule A10 adjacente non vide
            For Each Cel In .Range(.Cells(10, "A"), .Cells(Rows.Count, "A").End(xlUp))
            If Cel <> "" Then Cel.Offset(0, 65).PasteSpecial Paste:=xlPasteValues
        Next Cel
    End With
 
 
End Sub

Je fais une erreur.
Merci pour l'aide

[casefayere]

Bonsoir,
il y a obligatoirement une erreur, tes "ranges" ou tes "cells" sont précédés d'un point or tu n'as pas mis "With...end with", ici

Code :

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

 For Each Cel In .Range(.Cells(10, "A"), .Cells(Rows.Count, "A").End(xlUp))

PS : attention, tu as oublié, à la fin du code :

Code :

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

Application.DisplayAlerts = true

Si tout est sur la meme feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Dim ValueBN10 As Long
Dim Cel As Range
Application.DisplayAlerts = False
With Sheets("Base")
   For Each Cel In .Range(.Cells(10, "A"), .Cells(Rows.Count, "A").End(xlUp))
      If Cel <> "" Then Cel.Offset(0, 65) = .Range("BN10")
   Next Cel
End With
 
Application.DisplayAlerts = True
End Sub

quoique, je me demande l'intérêt du "DisplayAlert

[Vadorblanc]

Un grand Merci à toi Casefayere, ça marche super, c'est un beau code pour ce genre d'action.