copie de certaines cellules

Bonjour Nice, il va y avaoir du Bruit Vendredi !!!

Rapidos, en Private Module de la Feuille en Question :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
Dim Col As Byte

Select Case Target.Value
    Case 1:  Col = 2
    Case 2:  Col = 4
    Case 3:  Col = 6
    Case Else: Col = 1
End Select

    If Not Application.Intersect(Target, Range('A:A')) Is Nothing Then
        With Sheets('Feuil2')
            L = .Range('A65536').End(xlUp).Row + 1
            .Range('A' & L) = Me.Cells(Target.Row, Col)
        End With
   
    End If

End Sub

Cliquez pour agrandir...

Bonne Journée
@+Thierry[ol]

J - 2 = U 2

Salut Thierry,

Complètement hors sujet, mais pour vendredi, tu pourras nous raconter ? Hein ? s'il te plait ?

Merci.


@+

Salut Tibo, re Marcello

Pas de problème, je vous raconterai tout, j'ai carrément pris la journée pour y être tôt et être bien placé

Ce que je peux déjà dire c'est que les routes seront fermées Vendredi averc un périmètre interdit aux allentours du stade !

Une dizaine d'écrans géant, dont le plus grand du monde (Selon Nice Matin) 60 Mètres de large sur 25 Mètres de haut (Même les Rolling Stones pour le Forty Licks Tour n'avaient pas aussi grand !!!



Bon Appétit
[ol]@+Thierry[/ol]


PS Donc comptez pas sur moi Vendredi !!! LOL

Désolé de répondre un peu tard je rentre du job

salut les gars génial pour Ué mais attention la galere pour les voitures il faut y etre tôt.

bon concert thierry et merci pour ton aide

good bye