copie de cellule vers une autre feuille

[chinel]

Salut tout le monde, j'ai reçu ceci de porcinet82
et cela marche bien mais je voudrais faire encore mieux !

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

voir l'exemple ci dessous
merci de votre aide !!!
Fichiers attachés

 

[wilfried_42]

Re : copie de cellule vers une autre feuille

Bonjour chinel

Je ne sais pas si j'ai bien compris m'enfin

dans la ligne titre : Concatener le n° de Machine avec la date qui se trouve en C1 ?

si c'est cela, voila le code

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 & "-" & format(range("C1").value,"dd/mm/yyyy")
Else
.Cells(.Cells(65536, lig).End(xlUp).Row + 2, lig).Value = Target.Value
End If
End With
End Sub

 

[Excel_lent]

Re : copie de cellule vers une autre feuille

Bonjour à tous,

Nouvelle demande : nouvelle macro !
(avec la correction de wilfried)
@ voir et @+

 

[chinel]

Re : copie de cellule vers une autre feuille

ceci c'est très bien, mais je sais que je suis exigeant mais la date doit se mettre à la fin de toutes les machines par exemple en cellule "Y4" et qu'on commence en "A6" et pas en "F2" et ne pas mettre la date dans la même cellule que les prénoms.

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 & "-" & format(range("C1").value,"dd/mm/yyyy")
Else
.Cells(.Cells(65536, lig).End(xlUp).Row + 2, lig).Value = Target.Value
End If
End With
End Sub

voir exemple merci de votre aide !!!!

 

[Excel_lent]

Re : copie de cellule vers une autre feuille

Salut,

Pour éviter les "un sur deux", tu avais la solution dans mon premier fichier.
Mais si tu veux garder cette macro avec la correction, elle n’est valable que pour la première partie P09…P33, et ne gère pas les différentes lignes d’écriture !

[FONT=&quot]Voir le fichier joint pour tous les cas.
@+
[/FONT]

 

[chinel]

Re : copie de cellule vers une autre feuille

Salut Excel Lent ta solution est la meilleur pour moi !!!

mais je vois que au niveau de la colonne "T" les données vont en cellule "T4" et non "T5" comme les autres cellules précédentes et cela jusque "X4"

pourquoi ce changement de ligne ?

peux-tu faire le nécessaire, merci pour tout !!!

 

[Excel_lent]

Re : copie de cellule vers une autre feuille

Re,

Désolé, je me suis aperçu au dernier moment que tu sautais une ligne. J'ai corrigé 2 cas et ai oublié le dernier.
Dans

If [COLOR=Red]faitM[/COLOR] = False Then
  For i = 6 To 21
    lig(3, i) = [COLOR=Red]4[/COLOR]
  Next

remplace 4 par 5 (n° de la première ligne d'écriture).
A ta disposition si tu veux plus d'explications.
@+

 

[chinel]

Re : copie de cellule vers une autre feuille

Salut Excel Lent !!!

3 petits soucis :

1) j'ai changé mais au niveau de la date c'est toujours la même chose elle se met en ligne cellule "X4" et non en ligne "X5" comme les autres

2) quand je change la date elle reste sur la même ligne et qu'elle devrait se mettre sur la ligne du bas en "X6" comme les autres

3) mais j'ai un problème d'écriture regarde la capture d'écran ci-dessous


peux-tu remettre de l'ordre, merci de ton aide !!!
je suis vraiment nul !!!!

 

[Excel_lent]

Re : copie de cellule vers une autre feuille

Salut Chinel, bonjour lecteur qui passe,

Quand on débute, on commence à zéro et on est tous passé par là.

Pour la date, dans X4 tu as : =PLANNING!C1, il suffit de déplacer cela en X6.
Je me suis demandé comment tu utilisais cette indication ?
Si tu changes de date, que deviennent les opérations déjà écrites ? Sont-elles effacées ? Sont-elles gardées (avec leur date ou pas) ?

Pour les déclarations de variables, tu as dans le fichier joint un début d’explication.
Si tu veux vraiment progresser, tu peux déjà trouver des renseignements précis dans l’aide consacrée au VB.

[FONT=&quot]@+[/FONT]

 

[chinel]

Re : copie de cellule vers une autre feuille

Excel lent un très grand merci, j'ai enfin compris (pas trop tôt me diras tu !!!)

je vais étudier cela et je te dis quoi !!!

merci et good night !