Simplification de procédure
Résolu/Fermé
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
Modifié par Villette54 le 20/10/2014 à 12:18
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 21 oct. 2014 à 16:42
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 21 oct. 2014 à 16:42
A voir également:
- Simplification de procédure
- Le point d'entrée de procédure est introuvable dans la bibliothèque de liens dynamiques ✓ - Forum Windows
- Procédure héritage bara ✓ - Forum Vos droits sur internet
- Procedure de taxe bara - Forum Vos droits sur internet
- Point d'entrée introuvable - Forum Jeux PC
- Le point d'entrée de procédure bcrypt hash ✓ - Forum Logiciels
2 réponses
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
20 oct. 2014 à 13:40
20 oct. 2014 à 13:40
Bonjour
Essaies ceci
Essaies ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range, co As Long
If Not Intersect(Target, Range("C2:V2")) Is Nothing Then
Range("X2") = Target.Value
co = Target.Column
Set plage = Range(Cells(3, co), Cells(14, co))
'plage.Select
plage.Copy
Range("X3:X14").PasteSpecial xlFormats
End If
Cdlmnt
End Sub
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
Modifié par Patrice33740 le 20/10/2014 à 14:10
Modifié par Patrice33740 le 20/10/2014 à 14:10
Bonjour.
Ou encore (sans variable supplémentaire) :
Cordialement
Patrice
Ou encore (sans variable supplémentaire) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("C2:V2")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Range("X2").Value = Target.Value Target.Offset(1).Resize(12).Copy Range("X3:X14").PasteSpecial xlFormats Application.CutCopyMode = False End Sub
Cordialement
Patrice
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
Modifié par Patrice33740 le 20/10/2014 à 14:10
Modifié par Patrice33740 le 20/10/2014 à 14:10
Désolé, je n'avais pas envisagé la sélection de plusieurs cellules
Voici un code pour ce cas :
Edit : correction 12 lignes et non 12 colonnes
Voici un code pour ce cas :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cel As Range If Intersect(Target, Range("C2:V2")) Is Nothing Then Exit Sub For Each cel In Target.Rows(1).Cells Range("X2").Value = cel.Value cell.Offset(1).Resize(12).Copy Range("X3:X14").PasteSpecial xlFormats Next cel Application.CutCopyMode = False End Sub
Edit : correction 12 lignes et non 12 colonnes
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
28
Modifié par Villette54 le 21/10/2014 à 16:42
Modifié par Villette54 le 21/10/2014 à 16:42
Bonjour,
Merci pour vos réponses, effectivement vos solutions sont beaucoup plus simple !
ccm81, ta solution fonctionne très bien. Je te remercie.
Patrice33740, ta proposition fonctionne également mais je ne connais pas la fonction "offset" c'est pourquoi j'ai préféré la solution de ccm81. Quoi qu'il en soit un grand merci aussi.
Bonne fin de journée !
Merci pour vos réponses, effectivement vos solutions sont beaucoup plus simple !
ccm81, ta solution fonctionne très bien. Je te remercie.
Patrice33740, ta proposition fonctionne également mais je ne connais pas la fonction "offset" c'est pourquoi j'ai préféré la solution de ccm81. Quoi qu'il en soit un grand merci aussi.
Bonne fin de journée !