Cellule

porcinet82

XLDnaute Barbatruc

• 29 Juin 2007

• #2

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

@+

 

Pièces jointes

• exemple.xls

  20 KB · Affichages: 78
• exemple.xls

  20 KB · Affichages: 78
• exemple.xls

  20 KB · Affichages: 78

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 29 Juin 2007

• #3

Re : Cellule

Tu as bien compris, cela me contente !!!

merci bien !!!🙂

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 30 Juin 2007

• #4

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

 

Dernière édition: 1 Juillet 2007

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 30 Juin 2007

• #5

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 !

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 2 Juillet 2007

• #6

Re : Cellule

Salut,

modifie le code comme suit :

Code:

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

@+

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 2 Juillet 2007

• #7

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 !!!

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 2 Juillet 2007

• #8

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.

@+

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 2 Juillet 2007

• #9

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 !!!

 

Pièces jointes

• Test 1.zip

  34 KB · Affichages: 33
• Test 1.zip

  34 KB · Affichages: 33
• Test 1.zip

  34 KB · Affichages: 33

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 3 Juillet 2007

• #10

Re : Cellule

Salut,

Modifie le code de manière suivante :

Code:

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

@+

 

Vote positif 0 Vote négatif