X
Xavier
Guest
Bonjour,
désolé de revenir avec cette fontion (vu les quelques files que j'ai lu) mais mon programme ne l'effectue pas.
Le but est de vérifier dans un fichier annexe, ce qui se trouve dans une case (H) et d'écrire dans mon fichier de base en fonction de cette case un descriptif.
Merci bcp
Pour etre plus simple voilà ce que j'ai:
Dim Ligne
For Ligne = 2 To 4000
'Par la suite j'aimerais remplacer ceci par le nombre de lignes qui se trouve dans le fichier (de la ligne 2 à x ) est ce possible ??
Select Case (Range("H" & Ligne).Value)
Range("A" & Ligne) = "papa"
Case "P"
Windows(F0).Activate
Range("A" & Ligne) = "Maman"
Case "M"
Windows(F0).Activate
Range("A" & Ligne) = "TATA"
Case "T"
Windows(F0).Activate
Range("A" & Ligne) = "Other"
Case "V"
Windows(F0).Activate
Range("A" & Ligne) = "Other"
End Select
Next
désolé de revenir avec cette fontion (vu les quelques files que j'ai lu) mais mon programme ne l'effectue pas.
Le but est de vérifier dans un fichier annexe, ce qui se trouve dans une case (H) et d'écrire dans mon fichier de base en fonction de cette case un descriptif.
Merci bcp
Pour etre plus simple voilà ce que j'ai:
Dim Ligne
For Ligne = 2 To 4000
'Par la suite j'aimerais remplacer ceci par le nombre de lignes qui se trouve dans le fichier (de la ligne 2 à x ) est ce possible ??
Select Case (Range("H" & Ligne).Value)
Range("A" & Ligne) = "papa"
Case "P"
Windows(F0).Activate
Range("A" & Ligne) = "Maman"
Case "M"
Windows(F0).Activate
Range("A" & Ligne) = "TATA"
Case "T"
Windows(F0).Activate
Range("A" & Ligne) = "Other"
Case "V"
Windows(F0).Activate
Range("A" & Ligne) = "Other"
End Select
Next