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") ...


merci de m'aider !🙂

 

[porcinet82]

Re : Cellule

Salut,

Est-ce que tu pourrais donner un peu plus d'explications sur ce que tu veux faire parce que je ne suis pas sur d'avoir bien saisie. Moi j'ai compris que tu ecrivais quelque chose en A1 de la feuille 1 et tu veux que ce texte soit incrémenter dans la feuille 2 à partir de la cellule A1. C'est bien ca?

Si j'ai bien compris, voici un exemple en pièce jointe (pour voir la macro, Alt+F11).

@+

 

[chinel]

Re : Cellule

Tu as bien compris, cela me contente !!!

merci bien !!!🙂

 

[Temjeh]

Re : Cellule

Bonjour à tous

Pas rapport avec ce post ma chinel donne nous une réponse sur un de tes posts oublier (C'est vrai que tu a fait beaucoup d'appel d'aide ici ce mois-ci et on peut facilement si perdre!!!)

https://www.excel-downloads.com/threads/gif-dans-un-userform.77742/

A+

Merci ...Temjeh

 

[chinel]

Re : Cellule

porcinet82 c'est bien cela mais qu'on puisse continuer A2 de la Feuil1 sur Feuil2 en B2, A3 de la Feuil1 sur B3 en Feuil2, ...

merci de ton aide !!! mais je sais que tu peux compléter ma demande !

 

[porcinet82]

Re : Cellule

Salut,

modifie le code comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Integer
lig = Target.Row
With Sheets("Feuil2")
    If IsEmpty(.Cells(1, lig)) Then
        .Cells(1, lig).Value = Target.Value
    Else
        .Cells(.Cells(65536, lig).End(xlUp).Row + 1, lig).Value = Target.Value
    End If
End With
End Sub

@+

 

[chinel]

Re : Cellule

Salut porcinet82 !
merci pour le code

peut on enlever les colonnes vides ? et peut on commencer en A5 et puis continuer B5 et puis C5 ... voici le code modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Integer
lig = Target.Row
With Sheets("Statistiques")
If IsEmpty(.Cells(1, lig)) Then (ici il y a une colonne vide chaque fois)
.Cells(2, lig).Value = Target.Value
Else
.Cells(.Cells(65536, lig).End(xlUp).Row + 2, lig).Value = Target.Value
End If
End With
End Sub

merci de ton aide !!!

 

[porcinet82]

Re : Cellule

re,

Désolé, mais je ne comprends pas trop ce que tu souhaites faire. Est-ce que tu peux détailler un peu ou mettre un exemple.

@+

 

[chinel]

Re : Cellule

Salut porcinet82 !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Integer
lig = Target.Row
With Sheets("Statistiques")
If IsEmpty(.Cells(1, lig)) Then (ici il y a une colonne vide chaque fois)
.Cells(2, lig).Value = Target.Value
Else
.Cells(.Cells(65536, lig).End(xlUp).Row + 2, lig).Value = Target.Value
End If
End With
End Sub

ceci fonctionne bien mais je voudrais bien ceci
regarde l'exemple ci dessous
merci de ton aide !!!

 

[porcinet82]

Re : Cellule

Salut,

Modifie le code de manière suivante :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Integer
lig = Target.Row
With Sheets("Statisque")
    If IsEmpty(.Cells(5, (lig / 2) - 2)) Then
        .Cells(5, (lig / 2) - 2).Value = Target.Value
    Else
        .Cells(.Cells(65536, (lig / 2) - 2).End(xlUp).Row + 1, (lig / 2) - 2).Value = Target.Value
    End If
End With
End Sub

@+