Copie de données avec des conditions

Bonjour,

Je viens vers vous, car je ne vois pas du tout comment réaliser les macro que je voudrais réaliser.

Une macro a comme objectif de copié une donnée dans une certaine cellule en fonction de différents critères (supérieur, inférieur, égale)

La seconde a comme objectif de compté le nombre de fois que la valeur d'une cellule change

Je joint un fichier avec plus de détails sur mon projet,

Cordialement Cognomen,

Pour compter le nombre de changement j'ai trouvé une solution que je pourrais adapter

[spoiler]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$2" Then

    Range("O2").Value = Range("O2").Value + 1

End If

End Sub

[spoiler]

J'aimerais savoir comment adapter cette formule pour une plage de Q2:Q2000 sans a avoir a écrire plusieurs fois la formule

Cela est-il possible ?

Bonjour Cognomen

Quelques précisions:

Colonne G date de livraison, invariable

Colonne I Date variable, par modification due à l'utilisateur

Colonnes K et M Copie de la colonne I , pourquoi deux colonnes?

Colonne L copie de la colonne G

Nota: K6 n'étant pas égal à M6 alors que ce sont des copies de I6 que me manque-t-il comme information?

Colonne O : Doit-on mettre le nombre de fois que l'information colonne I est modifiée?

Dernier point vous parlez de : plage de Q2:Q2000, que doit-on y mettre?

Merci

Bonjour,

• La colonne G est bien invariable
• La colonne I est bien variable (pas par modification du l'utilisateur mais par fonction Index dans le vrai document)
• La colonne K a pour objectif de garder toujours la plus petite date obtenu (I peut être inférieur a G dans garder en mémoire le plus petit obtenu)
• La colonne L a pour objectif de garder toujours la grande date obtenu
• M a pour but d'avoir toujours afficher la date réel de livraison (cette colonne me permet principalement de calculer le nombre de changement, a chaque fois qu'une valeur change ici le compteur de la colonne a coté augmente d'un)

J'ai réussi la première partie du programme sur le déplacement des dates.

Le problème restant est donc de réussir a appliquer le programme de comptage de modification des cellules

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$2" Then

    Range("O2").Value = Range("O2").Value + 1

End If

End Sub

Dernier point vous parlez de : plage de Q2:Q2000, que doit-on y mettre?

La question sur la plage Q2:Q2000 était la suivante, comment appliquer cette formule a cette plage de données,

Mais j'ai réussi a trouver une solution aussi

Le fait d'avoir écrit mon problème et d'avoir fait un pause dessus ma permis de me rafraîchir les idées et de résoudre mon problème par mois même

Désolé de vous avoir dérangé et merci de m'avoir permis de mieux poser mon problème