Copier coller simple VBA
Fermé
Mokia34
Messages postés
24
Date d'inscription
mardi 16 octobre 2012
Statut
Membre
Dernière intervention
21 octobre 2013
-
16 oct. 2012 à 18:31
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 18 oct. 2012 à 08:55
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 18 oct. 2012 à 08:55
A voir également:
- Copier coller simple VBA
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Iphone 14 simple - Guide
- Super copier - Télécharger - Gestion de fichiers
- Copier coller formule excel sans décalage ✓ - Forum Bureautique
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
17 oct. 2012 à 08:47
17 oct. 2012 à 08:47
Bonjour,
copie la valeur de A1
comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille concernée (en bas de l'écran)
visualiser le code
coller
copie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Range("A3") = Target Range("A4:J4") = Target End If End Sub
comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille concernée (en bas de l'écran)
visualiser le code
coller
Bonjour
essayez ceci
Bonne continuation
essayez ceci
Private Sub Worksheet_Change(ByVal Target As Range) Range("A3:J3").Value = Range("a1:j1").Value End Sub
Bonne continuation
17 oct. 2012 à 10:01
17 oct. 2012 à 10:09
NON
et lis donc la charte concernant la politesse....
17 oct. 2012 à 10:16
17 oct. 2012 à 11:26
quand tu cliques dans A1ou B1 ou C1, tu veux la valeur de A1:J1 en ligne A3:J3 ?
ou
On clique seulement sur A1 pour avoir la valeur de A1:J1 en ligne A3:J3 ?
ou
quand tu cliques dans A1, tu veux la valeur en A3
puis
quand tu cliques dans B1, tu veux la valeur en B3
etc jusqu'à J1?
17 oct. 2012 à 19:02
et c'est bien ta 3eme propositionqui minteresse. la proposition de G_33 donne ce que je voudrais :
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A3:J3").Value = Range("a1:j1").Value
End Sub
mais le problème cest qu'apparemment c'est très lourd (car je reporte la ligne 1 à la ligne 3, la 2 à la 4 etc etc et cela 8 fois. mais jai une contrainte : je ne peux pas ordonner les lignes) et mon ordi plante....
:s
jai fait aussi ca :
Sub calculs()
For i = 2 To 6
Cells(6, i).Value = Cells(2, i).Value
Next i
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address(0, 0) = "B2:B6" Then calculs
'End Sub
mais va falloir que je duplique ca 8 fois cest pas optimal comme truc ...enfin je crois que cest possible de faire mieux mais je ne sais pas