Boucles imbriquées entre elle

[Didier972]

--------------------------------------------------------------------------------

Bonjour

Voilà cela fait deux jours que je cherche et je ne trouve pas tout a fait la solution que je veux.

Je ne sais même pas comment je vais pouvoir expliquer cela.....

La première partie du code fonctionne. c'est après que je bloque.

Quand il a trouvé la date, il doit vérifier que La cellule est vide

si oui il vérifie si la référence est dispo pendant tous les jours de location (Variable i)
Si tous les jours Dispo on repart de la date de départ, et on inscrit un "s"(k) dans chaque cellule des jours de loc.
Ensuite on passe à la référence suivante (j) (Cela me permet de connaitre la référence qui sort la cde peux s'effectuer sur plusieurs référence de la même famille.) donc je dois vérifier la disponibilité de chaque référence a chaque fois.

si non il descend d'une ligne jusqu' à la prochaine cellule vide ensuite il reférifie la dispo pendant tous les jours de locations

J'espère avoir été Clair.

Cordialement

 

[bbb38]

Re : Boucles imbriquées entre elle

Bonjour Didier972, le forum,

La première partie du code fonctionne. c'est après que je bloque.

Désolé de ne pouvoir t’aider, mais je ne vois pas te code dans ton fichier.
Cordialement,
Bernard

 

[Didier972]

Re : Boucles imbriquées entre elle

Bonjour

Décidément je n'ai pas joint le bon fichier, donc le voici avec le code

Cordialement

 

[bbb38]

Re : Boucles imbriquées entre elle

Bonjour Didier972, le forum,
Je dois m’absenter. Si tu n’as pas eu de réponse, je reprendrai ton code ce soir.
Cordialement,
Bernard

 

[Didier972]

Re : Boucles imbriquées entre elle

Je vais essayer d'être un peu plus clair dans ce que j'aimerais,, que cela fasse.

Exemple :J'ai besoin de 4 Référence de la famille des 3x3 a partir du 11 jusqu'au 15, donc 4 jours de Location

je vérifie la disponibilité de la première référence (ici : 3140)

2 Cas se présentent

1/ le 11 cette référence est disponible
mais il faut que je vérifie sa disponibilité le 12, 13, et le 14 si dispo les quatre date je réserve cette référence en notant un "s" dans chaque cellule.
1-1 la référence n'est pas dispo, pendant les 4 jours je vérifie la référence suivante a partir du 11 et ainsi de suite.

2/ La référence n'est pas dispo le 11, je passe à la référence suivante qui est dispo. et je recommence à 1.

Voilà j'espère avoir été plus claire.

Cordialement

 

[bbb38]

Re : Boucles imbriquées entre elle

Bonjour Didier972, le forum,
Une solution à tester.
Cordialement,
Bernard

 

[Didier972]

Re : Boucles imbriquées entre elle

Bonjour

Les boucles fonctionnent correctement.

Maintenant et là je n'ai même pas un départ de solution, j'aimerais recupérer la valeur de la référence de la ligne ou l'on inscrit le "s", et l'importer dans une colonne peut-être afin de pouvoir récuperer les donner dans une Listbox dans usf1.

Et également dans les cellules ou j'inscrit le "s" ajouter un commentaire qui est le nom du client "Coment.TB_Nom"
cela est bon mais je n'arrive pas a boucler sur le format du commentaire, j'ai essayer cela :

With ActiveCell.Comment.Shape
        .TextFrame.AutoSize = True 'Adapte la taille du commentaire selon le texte qu'il contient
        .OLEFormat.Object.Font.Size = 14 'Taille du texte
        .OLEFormat.Object.Interior.ColorIndex = 4 'Couleur de fond
        .TextFrame.Characters.Font.ColorIndex = 1 'Couleur de la police
        .OLEFormat.Object.Font.Name = "Bangle" 'Type de police
    End With

Merci encore

Cordialement

Didier

 

[Pierrot93]

Re : Boucles imbriquées entre elle

Bonjour,

voir aussi ici :
Boucles imbriqué entre elle - Forum du club des développeurs et IT Pro
bonne journée
@+

 

[Didier972]

Re : Boucles imbriquées entre elle

Je sais c'est également ma discussion, mais les différentes réponse me vont et me permette de faire une compilation afin d'arriver à ce que j'aimerais.

Cordialement

 

[Didier972]

Re : Boucles imbriquées entre elle

Bonjour

Bon j'ai réussi, a extraire les références,

Merci a tous .

Je ne sais pas comment mettre que le sujet est résolu.......