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