Re : recherche V avec plusieurs critères
Bonjour à tous,
Excusez-moi pour cette absence de 2 semaines mais j'ai eu des examens à passer, je n'ai donc pas eu le temps de me repencher sur ta solution. Depuis lundi, j'essaye d'appliquer ce que Tototiti2008 m'a proposé. Mais dans le code VBA, j'ai un soucis. Oui c'est la première fois que je tente d'appliquer une macro, alors j'ai un peu du mal ^^
Voilà, en fait, sur mon fichier officiel, après avoir sauvegardé, j'ai appliqué l'ensemble des formules. Seulement, en essayant de créer et d'adapter le code VBA, je tombe sur un os. Je me suis créé un feuille 'Calculs' afin d'y référencer toute les formules. Seulement, je ne comprend pas la seconde ligne et c'est celle qui me pose soucis car je ne peux rien valider tant qu'elle n'est pas mise à jour.
Sub MAJ()
With ThisWorkbook.Worksheets("Calculs")
If .Range("NbRes").Value = 1 Then
ActiveSheet.Range("E5").Value = .Range("A6").Value
ActiveSheet.Range("G5").Value = .Range("A9").Value
ActiveSheet.Range("E6").Value = .Range("A7").Value
ActiveSheet.Range("E7").Value = .Range("A8").Value
ActiveSheet.Range("E9").Value = .Range("A17").Value
ActiveSheet.Range("E11").Value = .Range("A10").Value
ActiveSheet.Range("E12").Value = .Range("A11").Value
ActiveSheet.Range("E14").Value = .Range("A12").Value
ActiveSheet.Range("E15").Value = .Range("A13").Value
ActiveSheet.Range("E17").Value = .Range("A14").Value
ActiveSheet.Range("E18").Value = .Range("A15").Value
ActiveSheet.Range("F18").Value = .Range("A16").Value
End If
End With
End Sub
Sub Vid()
ActiveSheet.Range("E5").Value = ""
ActiveSheet.Range("G5").Value = ""
ActiveSheet.Range("E6").Value = ""
ActiveSheet.Range("E7").Value = ""
ActiveSheet.Range("E9").Value = ""
ActiveSheet.Range("E11").Value = ""
ActiveSheet.Range("E12").Value = ""
ActiveSheet.Range("E14").Value = ""
ActiveSheet.Range("E15").Value = ""
ActiveSheet.Range("E17").Value = ""
ActiveSheet.Range("E18").Value = ""
ActiveSheet.Range("F18").Value = ""
End Sub
J'aimerai comprendre ce que signifie cette ligne afin que je puisse m'en servir et l'adapter.
Merci de votre aide précieuse.
a s t i