Discussion :

[bumpeur]

bonjour
je me permet de demander votre aide car je ne parviens pas seul a trouver solution a mon problème
de F5 a AJ5 je vérifie que si il y a une valeur dans la colone B
il me renvois la date correspondante dans la colone A

mon problème est que je voudrais que ci B8 B9 B10 ... ne soit vide il ne les prenne pas en compte

ce qui au final me donnerais de F5 a AJ5 1 3 15 16

d'avance merci
Classeur1.xlsx

[patrice084]

mon problème est que je voudrais que ci B8 B9 B10 ... ne soit vide il ne les prenne pas en compte

ce qui au final me donnerais de F5 a AJ5 1 3 15 16

Salut,

Je n'ai pas compris où était le problème car sur le fichier joint, tout semble complété selon vos souhaits.

[bumpeur]

je voudrais que si de b8 a b18 il n't a rien que il ne les prenne pas en compte
dans la ligne date
dans la ligne date serais avec des chiffre qui ce suive et non avec des espace

pour le moment de f5 a aj5 ca donne 01 02 03 0 0 0 0 0 0 0 0 0 0 15 16 0 0

et je voudrais que cela ne donne
01 02 03 15 16 .......

[bumpeur]

j'ai essayer avec SI
en f5
=SI($B5>0;$A5;SI(B6>0;A6))
mais après il me dit trop d'argument

[patrice084]

j'ai essayer avec SI
en f5
=SI($B5>0;$A5;SI(B6>0;A6))
mais après il me dit trop d'argument

Bon, voilà une petite macro dont le code peut probablement être amélioré, je suis un peu (beaucoup) rouillé, mais qui devrait faire ton affaire

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
Sub Je_Trime()
    Dim J As Integer
    Dim R As Integer
    Dim C As Integer
 
        'J va successivement prendre les valeurs 1 à 31
        'R stocke le résultat lu
        'C est un compteur
    C = 6
    For J = 1 To 31
        R = Cells(J + 4, 2).Value
        If R >= 1 Then
        Cells(5, C) = J
        C = C + 1
        End If
        Next J
End Sub

[casefayere]

Bonsoir,

autre façon, toujours par macro
si il faut prendre la valeur de colonne B, sinon à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub lavaleur()
Dim Tb(), Dl As Long, cel As Range, Plg As Range, x As Long
Dl = Range("B" & Rows.Count).End(xlUp).Row
Set Plg = Range("B5:B" & Dl)
x = 0
ReDim Tb(1 To WorksheetFunction.CountIf(Plg, "<>"""))
For Each cel In Plg
  If cel <> "" Then
    x = x + 1: Tb(x) = cel
  End If
Next cel
Range("F5:AJ5").ClearContents
Range(Cells(5, 6), Cells(5, 6 + UBound(Tb))) = Tb
End Sub

[bumpeur]

bonjour
votre macro fonctionne impec
j'ai juste encore un petit probleme
c'est que de b5 a b35 et de c5 a c35
il t a des formule et donc la macro me renvois une erreur

Bon, voilà une petite macro dont le code peut probablement être amélioré, je suis un peu (beaucoup) rouillé, mais qui devrait faire ton affaire

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
Sub Je_Trime()
    Dim J As Integer
    Dim R As Integer
    Dim C As Integer
 
        'J va successivement prendre les valeurs 1 à 31
        'R stocke le résultat lu
        'C est un compteur
    C = 6
    For J = 1 To 31
        R = Cells(J + 4, 2).Value
        If R >= 1 Then
        Cells(5, C) = J
        C = C + 1
        End If
        Next J
End Sub

[patrice084]

bonjour
votre macro fonctionne impec
j'ai juste encore un petit probleme
c'est que de b5 a b35 et de c5 a c35
il t a des formule et donc la macro me renvois une erreur

Le fait qu'il y ait des formules ne devrait pas avoir d'incidence. peut être que le problème vient de l'endroit où la macro écrit. je me suis basé sur votre premier fichier pour faire écrire le résultat à partir de F5.

Sinon, quelles sont ces formules et surtout quel est le message d'erreur.

[bumpeur]

voila l'erreur que j'ai
je remarque que cela ce passe a chaque fois que une des cellule b5 a b35
avec rien dedans
enfin que ma formule ne me renvois pas de donnée

[patrice084]

voila l'erreur que j'ai
je remarque que cela ce passe a chaque fois que une des cellule b5 a b35
avec rien dedans
enfin que ma formule ne me renvois pas de donnée

Quelle est la formule de calcul dans les cellules B ? Si besoin, mettez de nouveau votre fichier qui contient la macro.

[bumpeur]

dupliquer la formule de C1 c'est presque la même