Menu

Probleme formule [Résolu/Fermé]

cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 23 nov. 2016 à 16:04 - Dernière réponse : cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention
- 23 nov. 2016 à 18:41
Bonjour,
le code s dessous fonctionne tre bien sur mon pote mais si je l'ouvre sur le poste d'un collegue il m'indique une erreur a la ligne Set ws = Sheets("Donné équipement")
je ne sais pas pourqoui
pouvez vous m'aider
merci par avance


Private Sub CommandButton1_Click()
Dim l_info As Integer
Dim note_1 As String, note_2 As String, lanote As String




With ThisWorkbook.Worksheets("TABLEAU RECAP")
l_info = .Cells(.Rows.Count, 2).End(xlUp).Row + 1


.Range("B" & l_info).Value = ComEQUI 'libelle equipement'
.Range("c" & l_info).Value = Textlocal 'code local"
.Range("D" & l_info).Value = ComRESP 'Nom du responsable'
.Range("E" & l_info).Value = CDate(TextDATEAM) 'date du constat'
.Range("F" & l_info).Value = CDate(TextMISE) 'date de mise en service'
.Range("G" & l_info).Value = CInt(TextDUREVIE.Value) 'Duree de vie theorique'
.Range("H" & l_info).Value = CDate(TextREMPL) 'Date theorique de remplacement '
.Range("I" & l_info).Value = CInt(TextDURVIERESI.Value) 'Duree de vie residuelle '
.Range("J" & l_info).Value = TextESTIMREMPL 'Duree de vie residuelle '
.Range("K" & l_info).Value = CInt(TextRESUETAT.Value) 'note de etat equipement'
.Range("l" & l_info).Value = CInt(TextRESUCRIT.Value) 'note de criticite equipement'

With .Range("M" & l_info)
'formulation
.FormulaR1C1 = "=IF(RC[-2]<=21,""Mauvais"",IF(RC[-2]<=43,""Usuel"",IF(RC[-2]<=64,""Bon"")))"
'équivaut à un collage spécial valeur
.Value = .Value
note_1 = .Value
End With

With .Range("N" & l_info)
'formulation
.FormulaR1C1 = "=IF(RC[-2]<=21,""Faible"",IF(RC[-2]<=43,""Moyenne"",IF(RC[-2]<=64,""Forte"")))"
'équivaut à un collage spécial valeur
.Value = .Value
note_2 = .Value
End With

Select Case True
Case note_1 = "Mauvais" And note_2 = "Faible"
lanote = "B"
Case note_1 = "Mauvais" And note_2 = "Moyenne"
lanote = "C"
Case note_1 = "Mauvais" And note_2 = "Forte"
lanote = "C"

Case note_1 = "Usuel" And note_2 = "Faible"
lanote = "A"
Case note_1 = "Usuel" And note_2 = "Moyenne"
lanote = "B"
Case note_1 = "Usuel" And note_2 = "Forte"
lanote = "B"

Case note_1 = "Bon" And note_2 = "Faible"
lanote = "A"
Case note_1 = "Bon" And note_2 = "Moyenne"
lanote = "A"
Case note_1 = "Bon" And note_2 = "Forte"
lanote = "A"




End Select

.Range("O" & l_info).Value = lanote

Set ws = Sheets("Donné équipement")</souligne>
l = ws.Cells.Find(ComEQUI.Value, , , xlWhole).Row
ws.Range("G" & l).Value = lanote

End With

Me.hide



Unload UserFormpri

End Sub

Afficher la suite 

2 réponses

gbinforme 14797 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 22 avril 2018 Dernière intervention - 23 nov. 2016 à 18:05
0
Utile
1
Bonjour,

Tu n'as pas défini ta variable ws :
Dim ws as WorkSheet
cedric0715 207 Messages postés mercredi 25 février 2015Date d'inscription 9 avril 2018 Dernière intervention - 23 nov. 2016 à 18:41
merci