Insertion date en A1 si B1 comprend une chaine de caractères

[lmylvc]

Bonjour

Dans un tableau Excel multi lignes, je souhaite insérer une date dans une cellule si une autre cellules comprend soit un nbre soit des mots
Exemple :
- en A1 je saisis la valeur 12365
- Résultat attendu en B1 la date du jour s'insert automatiquement
ou
- en A1 je saisis la valeur OK ou NOK OU....
- Résultat attendu en B1 la date du jour s'insert automatiquement

Merci d'avance

 

[phlaurent55]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

Bonjour imylvc,

voir fichier joint

à+
Philippe

 

[GBI]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

Bonjour,

Ci-joint deux solutions, une où toutes les dates se mettent à jour lorsque tu lances la macro et la seconde où seulement les nouvelles valeurs ont une nouvelle date

Si tu ne souhaites pas avoir l'heure, retires-le du code 🙂
Cdt

 

[lmylvc]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

Hello les amis, merci pour vos réponses.

J'ai essayé la solution de Laurent qui fonctionne très bien.
Toutefois si on n'insert une ligne supplémentaire un mesbox de débogage s'ouvre
si une solution existe à ce pb je suis preneur.

GBI, j'ai ouvert le fichier et ai saisi une valeur quelquonque dans la colonne A pourtant aucune date n'est apparue alors que j'ai vu que tes essais avaient fonctionné, peux-tu STP tester de ton coté STP

Merci d'avance
Vincent

 

[lmylvc]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

C'est de nouveau moi,
voici le fichier pour que vous puissiez mieux comprendre
Regarde la pièce jointe suivi des conteneur nok.xls

A+

 

[GBI]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

Hello les amis, merci pour vos réponses.

J'ai essayé la solution de Laurent qui fonctionne très bien.
Toutefois si on n'insert une ligne supplémentaire un mesbox de débogage s'ouvre
si une solution existe à ce pb je suis preneur.

GBI, j'ai ouvert le fichier et ai saisi une valeur quelquonque dans la colonne A pourtant aucune date n'est apparue alors que j'ai vu que tes essais avaient fonctionné, peux-tu STP tester de ton coté STP

Merci d'avance
Vincent

c'est du clé en main qu'il te fallait ^^. Tu avais juste à lancer la commande via l'interface VBA (ALT+F11)
Je t'ai mis 2 bouttons pour que tu ne sois pas perdu 🙂
Cdt

 

[lmylvc]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

Hihihi
C'est vrai que j'ai oublié de préciser que je suis un peu limite basse dans la maîtrise de VBA, ce qui donne l'impression que j'abuse.
Quoi qu'il en soit, je te remercie chaleureusement.
Je vais mettre cette solution en pratique, car le pb d'insertion ligne ne provoque pas l'apparition du msgBox.

Merci les amis

A+

Vincent

 

[GBI]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

Au plaisir de te rendre service 🙂

 

[lmylvc]

Re : Insertion date en A1 si B1 comprend une chaine de caractères

GBI
Dans un premier temps, je me suis dit que j'allais bien réussir à décoder le code VBA que tu as réalisé.
Eh ben non, je ne trouve pas de traduction pour Derlig je ne comprends pas la référence a i...
Puis-je me permettre de te demander une traduction complète de ce code afin que je puisse aller me coucher moins Biiiip.

Private Sub CommandButton2_Click()
' ????
Derlig = Sheets(1).Range("A65536").End(xlUp).Row
' ????
For i = 2 To Derlig
' ????
If i <> "" And Cells(i, 2) = "" Then
' ????
Cells(i, 2).Value = Date & " - " & Time
' ????
End If
' ????
Next i

End Sub