copier dans la premiere cellule vide d'une colonne

[jaouad]

salut FORUM

svp je voudrai que vous m'aidiez a ce propos je vous en serai tres reconnaissant

insciption automatique de toute valeur inscite dans une cellule de la plage ("G8:IU10") de la "feuil1" dans la premiere cellule vide de la plage ("B8:B271") de la "feuil2"

merci d'avance les amis

 

[Pierrot93]

Re : copier dans la premiere cellule vide d'une colonne

Bonjour,

regarde peut être le code ci-dessous, à utiliser dans le module de la feulle "feuil1". click droit sur l'onglet => visualiser le code. Au moins une cellule doit être renseignée dans la plage "B8:B271" :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G8:IU10")) Is Nothing Then
    With Sheets("Feuil2")
        Set x = .Range("B8:B271").Find("", .Range("B271"), xlValues, , 1, 1, 0)
        If Not x Is Nothing Then Target.Copy x
    End With
End If
End Sub

bonne journée
@+

 

[jaouad]

Re : copier dans la premiere cellule vide d'une colonne

super extra mon ami je vous remercie intensement pour ton aide

 

[jaouad]

Re : copier dans la premiere cellule vide d'une colonne

en faite que dois-je inserer de plus dans ce code pour garder la mise en forme des cellules distinataires

 

[Pierrot93]

Re : copier dans la premiere cellule vide d'une colonne

Bonjour,

modifie comme suit :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G8:IU10")) Is Nothing Then
    With Sheets("Feuil2")
        Set x = .Range("B8:B271").Find("", .Range("B271"), xlValues, , 1, 1, 0)
        If Not x Is Nothing [COLOR="Blue"]Then x.Value = Target.Value[/COLOR]
    End With
End If
End Sub

bonne journée
@+

 

[jaouad]

Re : copier dans la premiere cellule vide d'une colonne

c'est parfait, bravo et merci à vous mon cher pierrot93
bonne journee