Cellule

[chinel]

Salut tout le monde !!!

peut on écrire dans une cellule et que la valeur de cette cellule se copie automatiquement ou part un bouton de commande dans une autre feuille
exemple: sheets("Feuil1") et range("A1") copier dans sheets("Feuil2") et range("A1") et puis quand je recommence copier dans sheets("Feuil2") et range ("A2") et ("A3") ...

problème résolu
mai peut on faire cela avec plusieurs cellules

exmple : sheets("Feuil1") et range ("A1") ("A2") ("A3") copie la valeur des cellules dans sheets("Feuil2") et range ("A1") ("B1") ("C1")

 

[Philippe]

Re : Cellule

bonsoir,

ceci devrait faire l'affaire:

sub copie ()

for x=1 to 3
sheets("Feuil2").cells(1,x)=sheets("Feuil1").cells(x,1)
next
end sub

A+
Philippe

 

[jeanpierre]

Re : Cellule

Bonsoir chinel, le forum,

Peux-tu arrêter tes titres laconiques,

Cellule 3 fois
Msgbox
mail
gif
macro 2 fois
date
et d'autres encore.....

Sans faire une phrase, tu peux expliciter en 7 ou 8 mots, ton souci. (bien choisir les mots essentiels)

Tu te pénalises toi-même puisque tu ne peux même pas profiter des cinq discussions similaires mais surtout tu pénalises tous ceux qui vont passer du temps en Recherche et qui vont, sans doute perdre un peu patience, car et pour eux, aucuns de tes fils ne leur apportera solution...

Donc, prends quelques minutes de plus pour créer un TITRE explicite. Si tu le fais, je t'en remercie.

Bonne soirée.

Jean-Pierre

 

[Robert]

Re : Cellule

Bonsoir le fil, bonsoir le forum,

Pas sur que ça convienne... Une solution VBA avec macro événementielle Change.Tape plusieurs valeurs en A1 (onglet Feuil1) et regarde le résultat dans l'onglet Feuil2.

Entre temps le Jeanpierre est passé par là pour te remonter les bretelles.... Il a raison le bougre. Je le salue, je l'embrasse même...

 

[chinel]

Re : Cellule

Merci Philippe
Merci Robert de vos réponses, je vais voir si cela fonctionne !!!

Jean-Pierre merci de me remettre dans le bon chemin, mais je suis novice et maintenant j'ai compris la leçon !

 

[chinel]

Re : Cellule

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans les cellules
Dim dest As Range 'déclare la variable dest

If Target.Address <> "$A$1" Then Exit Sub 'si le changement ne se fait pas en A1, sort de la procédure

With Sheets("Statistiques") 'prend en compte l'onglet "Feuil1"
If .Range("A1").Value = "" Then 'condition : si A1 est vide
Set dest = .Range("A1") 'définit la variable dest (A1)
Else 'sinon
Set dest = .Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest (première cellule vide en A)
End If 'fin de la condition
End With 'fin de la prise en compte l'onglet "Feuil2"

Target.Copy Destination:=dest 'copie A1 dans dest
end sub

ceci fonctionne bien mais est il possible d'avoir pour plusieurs cellules
dans l'exemple ci-dessus c'est juste pour la cellule A1 de la feuille1
mais pour d'autre cellules cela ne fonctionne pas !
exemple:

Dim dest As Range 'déclare la variable dest

If Target.Address <> "$A$1" Then Exit Sub 'si le changement ne se fait pas en A1, sort de la procédure

With Sheets("Statistiques") 'prend en compte l'onglet "Feuil1"
If .Range("A1").Value = "" Then 'condition : si A1 est vide
Set dest = .Range("A1") 'définit la variable dest (A1)
Else 'sinon
Set dest = .Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest (première cellule vide en A)
End If 'fin de la condition
End With 'fin de la prise en compte l'onglet "Feuil2"

Target.Copy Destination:=dest 'copie A1 dans dest
If Target.Address <> "$A$2" Then Exit Sub

With Sheets("Statistiques")
If .Range("B1").Value = "" Then
Set dest = .Range("B1")
Else
Set dest = .Range("B65536").End(xlUp).Offset(1, 0)
End If
End With

Target.Copy Destination:=dest
end sub