Discussion :

[nicacc]

Bonjour,

Je bloque complètement sur une fonction VBA.

J'aimerai faire l'inverse d'un diagramme de Gant.
Le tableau en pièce jointe donne un exemple de ce que je souhaiterai faire :
retrouver automatiquement la date correspondant à la première cellule contenant un "X".

Merci d'avance pour votre aide, n'hésitez pas, si je ne suis pas assez clair, à me poser des questions.

Nicacc

[jffaber]

salut voici une solution à ton problème.
Si tu des explications n'hésite pas!
A +.

[nicacc]

Une petite précision, la valeur du vrai tableau n'est pas un "X" mais un chiffre qui est chaque fois différent.
La fonction HLOOKUP ne marche pas dans ce cas la.

J'aimerai parvenir a tester le contenu des cellules d'une ligne, cellule par cellule, et donner la date correspondant à la première cellule <>0 (la date est dans la première ligne).

Un gros et grand merci d'avance

Merci jffaber,

C'est exactement ce que je cherche à faire
Cependant je n'arrive pas a visualiser ce que tu as fait
La macro est enregistrée dans le fichier?

[jffaber]

Pour lire le code, mets toi en mode création dans le classeur, clique droit sur le bouton, et "visualiser le code".

[nicacc]

C'est ce que j'ai fait mais la feuille est vide.
Peux-tu coller le code directement dans le forum?

En tout cas merci encore!

[jffaber]

voici le code modifié suivant ta demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim n As Integer
Dim m As Integer
Dim o As Integer
Dim p As Integer
 
n = 4 'première ligne du tableau
o = 50 'nombre de jours dans le calendrier
p = 1 'ligne contenant les dates
Do While Cells(n, 1) <> ""
    m = 4 'première colonne comportant une date
    Do While Cells(n, m) = "0" And m < o  'recherche date de début
        m = m + 1
    Loop
    Cells(n, 2) = Cells(p, m) 'saisie date de début
    Do While Cells(n, m) <> "0" And m < o 'recherche date de fin
        m = m + 1
    Loop
    m = m - 1
    Cells(n, 3) = Cells(p, m) 'saisie date de fin
    n = n + 1 'passage à la ligne suivante
Loop

[nicacc]

Encore merci pour la qualité et la rapidité de ta réponse!