Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
GTA 6
iPhone 17
Copilot
Switch 2
Temu
ChatGPT
Tesla
Génération NT
Entraide
Applications
Microsoft Office
Excel
copier - coller
copier - coller
1 réponse
chris
21/10/2005 à 10:53
Bonjour,
Je voudrais svp lorsque je selectionne une cellule( pas tjrs la même) qu'il
me la copie et qu'il me la colle de deux colonnes en deux colonnes
ex:
Je selectionne A3 et il copie en c3, e3, f3, h3,j3
par avance merci,
christophe
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
anonymousA
Signaler
21/10/2005 à 11:15
bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tabl = Array(2, 4, 5, 7, 9)
If Target.Cells.Count = 1 And Not Intersect(Target, Range("A1:A65536"))
Is Nothing Then
With Target
For I = LBound(tabl) To UBound(tabl)
.Copy .Offset(0, tabl(I))
Next
End With
End If
End Sub
A+
bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tabl = Array(2, 4, 5, 7, 9)
If Target.Cells.Count = 1 And Not Intersect(Target, Range("A1:A65536"))
Is Nothing Then
With Target
For I = LBound(tabl) To UBound(tabl)
.Copy .Offset(0, tabl(I))
Next
End With
End If
End Sub
A+
Vous avez filtré cet utilisateur ! Consultez son message
bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tabl = Array(2, 4, 5, 7, 9)
If Target.Cells.Count = 1 And Not Intersect(Target, Range("A1:A65536"))
Is Nothing Then
With Target
For I = LBound(tabl) To UBound(tabl)
.Copy .Offset(0, tabl(I))
Next
End With
End If
End Sub
A+
