copie de certaines cellules

[marcello06]

bonjour à vous tous !

Je souhaite en fonction de la valeur d'un cellule (type O/N ou 1ou2) copier certaines cellules non contigus de cette ligne vers une autre feuille bien sur en derniere ligne. en code VBA

j'ai un peu de mal a réussir tout ça
Merci de vos réponses et à plus tard

 

[_Thierry]

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

Bonne Journée
@+Thierry[ol]

J - 2 = U 2

 

[Tibo]

Salut Thierry,

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

Merci.


@+

 

[_Thierry]

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

 

[marcello06]

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