Bonjour,
Veuillez m'excuser pour la confusion car les fichiers que j'ai mis n'est pas à jours
Les fichiers ci-joint sont ce que je souhaite utiliser pour faire mes calcules dans le classeur Cotation. Dans cette classeur, la feuille itinéraie fonctionne déjà ainsi que la feuille hebergement. Par contre je n'avance pas dans la feuille Resto
Je n'arrive pas à inserer dans les codes suivant une condition qui va conditionner les nombre de Petit déjeuner, nombre de déjeuner et Nombre de dinner. Remarque : les codes fonctionne bien
Sub Resto()
Set zone = zc(Sheets("Resto"), 4, 4) 'd4
For Each i In zone
If i <> "" Then
Set res = Workbooks("donnees.xls").Sheets("hotelresto").UsedRange.Find(Trim(i))
If Not res Is Nothing Then
i.Offset(0, -1) = res.Offset(0, -1) 'nom des villes
i.Offset(0, 1) = res.Offset(0, 5) 'tarif petit déjeuner
i.Offset(0, 2) = res.Offset(0, 7) 'tarif dejeuner
i.Offset(0, 3) = res.Offset(0, 6) 'tarif Diner
End If
Set zoneiti = zc(Sheets("itineraire"), 8, 9)
compte = 0
For Each it In zoneiti
If Trim(it) = Trim(res) Then compte = compte + 1
Next
i.Offset(0, 4) = compte 'nb de Pdj à chaque hotel
i.Offset(0, 5) = compte 'nb de Dej à chaque hotel
i.Offset(0, 6) = compte 'nb de Dn à chaque hotel
End If
Next
End Sub
Les conditions sont défini par la valeur de la cellule L3 feuille Itineraire ansi que la valeur dans la colonne D de la feuille Resto
Si L3 = Pension complète donc on ajoute le Nb Pdj, Nb Dj et Nb Dn
Si L3 = Demi Pension donc on ajout seulement le Nb Pdj et Nb Dn et les restes seront vides
Si L3 = Bed and breakfast on ajoute seulement le Nb de Pdj t les restes seront vides
S'ajoute à ces conditions si dans la feuille Resto une celle dans la colonne D contient le mot camping, on ajoute aucun Nb Pdj, ni Nb Dj ni Nb Dn
Merci beaucoup