A voir également:
- Copie valeur d'une Inbox dans une cellule
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Copie cachée - Guide
1 réponse
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
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