Bonsoir,

la cellule que tu as modifiée est TARGET.
c'est donc avec elle que tu dois travailler et pas activecell.offset(....)

Ma valeur est un chiffre Expotenciel à la -65 et que la ligne qui suit contient la bonne valeur.
Qu'est-ce que ça veux dire?

Comme vous pouvez voir je tiens compte seulement que la cellule active est en dessous de celle que je viens de modifier.
Pas vraiment, en fait tu considères que la cellule modifiée est celle au dessus de la cellule active

pour finir, ta variable Vide, d'où sort-elle?

cordialement

Merci,

Ma variable Vide est pour vérifier s'il y a quelque chose dans la cellule. Peut importe sa nature. Donc Vide n'est pas initialisé alors elle peut prendre n'importe quel valeur, humm.. Je crois que j'ai une erreur là!

La variable TARGET est la valeur de la cellule où je suis présentement. C'est la la nouvelle cellule ou je me suis déplacer. Mais moi je cherche à avoir de l'information sur la dernière cellule modifier. Et c'est celle là que je le plus de diffilculté.

Merci

OctetPlus

Bonsoir,

c'est avec Private Sub Worksheet_SelectionChange(ByVal Target As Range) que target représente la cellule d'atterrissage

avec Private Sub Worksheet_Change(ByVal Target As Range), target représente la cellule qui vien d'être modifiée.
pour être encore plus précis, si tu tapes toto dans la cellule A10 et que tu cliques dans la cellule Z1, target vaudra l'adresse A10

A+

Bonjour,

Quel est le meilleur moyen de vérifier si la cellule est vide (qu'il n'y a pas de valeur)

Jusqu'à présent, je suis rendu à ça:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Interior.ColorIndex = 34 Then
    If EstVide(Target.Offset(-1, 0)) Then
        If ESTNUM(Target.Value) Then
            Target.Value = Target.Value / 2
            Target.Offset(-1, 0).Value = Target.Value
        End If
    End If
End If
 

End Sub

Enfin, j'ai travaillé très fort et voilà ça fonctionne maintenant.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As Single

If Target.Interior.ColorIndex = 34 Then
    If IsEmpty(Target.Offset(0, -1)) Then
        If IsNumeric(Target.Value) Then
            Valeur = Target.Value / 2
            Target.Offset(0, -1).Value = Valeur
            Target.Value = Valeur
        End If
    End If
End If
 
End Sub

Bonjour a tous ;

j'ai un grand problème, car la ou je travail je perdre bcq de temps uniquement pour mettre mon tableau a jours car j'ai chaque fin de semain un tableau d'expédition qui porte bcq d'information Exemple: nom de vendeur, nom de client, nom de produit , prix achat, prix de vente, N° de série, date de sortie date d'arrivier, N° de commande....etc et tout ça sur une sentaine de ligne selon le nombre de produit ( chaque produit est affecter pour un client).

se que je cherche est de créer un macro pour faire la mise a jours automatique c-a-d si il trouve pas de chanchement il dit OK , et si il touver un changement par exemnle dans la date de sortie ou date d'arrivée ou changement d'affectation il le mettre a jour, et aussi il ajoute dans mon tableau les nouveau produit (qui sont commandé)

Pour information: je base ma recherche sur le ID (N° de commande) de chanque produit.

Merci par avance de m'idée car malheureusement je connai pas le Basic.

Cordialement

Coeurs bleu

Bonjour

Coeurbleu n'as-tu pas l'impression de jouer au pique-assiette ?
Ce sujet ne traite pas ton problème alors crée un sujet à toi sinon tu n'auras pas de solution.

Ps : un petit bonjour amical au canadien qui a probablement résolu le souci de OctetPlus
Le savoir est la seule matière qui s'accroît quand on la partage. (Socrate)