Copie valeur d'une Inbox dans une cellule Fermé

Question

Bonjour,
j'espère que vous allez pouvoir m'aider car ça fait un petit moment que je me prend la tête dessus et j'aui rien trouvé sur le forum.
J'essaie sous vba de faire un script qui importe un fichier .csv copie les valeurs dans un tableau, demande à l'utilisateur d'entrer une date et puis compare cette date avec la derniere colonne de chaque ligne et suivant le resultat de la comparaison, il affiche v1 ou v2.
mon problème est le suivant:
je crée un inbox:

Dim Retour As String
Do
DateVer = InputBox("Date jj/mm/aaaa ", "Titre de la fenêtre", "Texte par défaut", 100, 100)
Loop While Retour = ""

ce que je veux faire c'est :
Pour chaque i de 1 à nombre de ligne
 si la valeur de la cellule Ji > DateVer, alors mettre la valeur "v1" dans la cellule Ki
sinon mettre la valeur "v2" dans la cellule Ki

voila
je vous remercie de votre aide

bfoolisher · Answer

J'ai fait ça mais j'ai une erreur au niveau  de la 5 eme ligne en partant du bas


Dim Retour As String

Retour = InputBox("Date de mise en production de la dernière version (jj/mm/aaaa ", "Date version", "jj/mm/aaaa", 100, 100)


Worksheets("tableau").Range("J1").Value = "Date version"
For i = 2 To nbLigTabl
Worksheets("tableau").Range("J" & i).Value = Retour
Next i

For b = 2 To nbLigTabl
If Worksheets("tableau").Cells(9, b).Value > Worksheets("tableau").Cells(10, b).Value Then
Worksheets("tableau").Range("K" & i).Value = "V2"
Else: Worksheets("tableau").Range("K" & i).Value = "V1"
End If
Next b

Copie valeur d'une Inbox dans une cellule

1 réponse

Discussions similaires