Code VBA : déplacement dans une nouvelle cellule
Résolu/Fermé
winlost
Messages postés
3
Date d'inscription
lundi 12 mai 2014
Statut
Membre
Dernière intervention
14 mai 2014
-
12 mai 2014 à 22:09
winlost Messages postés 3 Date d'inscription lundi 12 mai 2014 Statut Membre Dernière intervention 14 mai 2014 - 14 mai 2014 à 11:02
winlost Messages postés 3 Date d'inscription lundi 12 mai 2014 Statut Membre Dernière intervention 14 mai 2014 - 14 mai 2014 à 11:02
A voir également:
- Code VBA : déplacement dans une nouvelle cellule
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code blocks free - Télécharger - Langages
- Code windows 10 - Guide
2 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 mai 2014 à 22:49
12 mai 2014 à 22:49
Bonsoir,
essaye ce code dans le worksheet de la feuille 2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
derncol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Cells(1, derncol + 1).Value = Range("A1").Value
End If
End Sub
Cdlmnt
essaye ce code dans le worksheet de la feuille 2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
derncol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Cells(1, derncol + 1).Value = Range("A1").Value
End If
End Sub
Cdlmnt
winlost
Messages postés
3
Date d'inscription
lundi 12 mai 2014
Statut
Membre
Dernière intervention
14 mai 2014
14 mai 2014 à 11:02
14 mai 2014 à 11:02
Bonjour le Forum,
Mon problème de VBA sur cette question a été résolue par un tiers.
Merci à tous pour la participation.
winlost
Mon problème de VBA sur cette question a été résolue par un tiers.
Merci à tous pour la participation.
winlost
12 mai 2014 à 23:25
Je testerai demain cette procédure et te dirai ce qu'il en est.
Merci pour ton aide. Bye
Winlost