souci avec un code pour transfert d'une à une autr

[Emmanuel]

Bonjour LE FORUM

voici mon souci
en feuil1, il y a une date et une donnée
en feuil (s1) un petit tableau qui va récurer la donnée en fonction du jour de la semaine.

si la date en feuil1 correspond au samedi, il ne veut pas recupérer la donnée, alors que les autres jours de la semaine fonctionne

peut être que le problème vient de chez moi

Merci par avance

bonne journée à tous
Emmanuel [file name=Classeur2_20050511142048.zip size=7502]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050511142048.zip[/file]

 

[Abel]

Bonjour Emmanuel,

Modifie la condition comme suit :

If Application.Weekday(Sheets(n).[b1]) = Sheets('s1').Cells(i, 1) And Sheets(n).[b1] <> '' Then

Car weekday(0) = 7.
C'est pour cela qu'il inscrit une plage = vide sur le samedi.
Dans les feuilles 2 et 3, la date est vide. Il considère cela comme Weekday (0). Donc, la condition du test est réalisée.

En espérant que cela te dépanne.

Abel.

 

[dg62]

Re:souci avec un code pour transfert d'une à une a

Bonjour emmanuel


Ta boucle ecrasait la valeur du samedi (feuille 1) par les suivantes.

Modification de ton code sans savoir exactement ce que tu souhaites réaliser.

Sub Rectangle1_QuandClic()
Dim i As Integer
Dim n As Integer
n = 1

While n < 4
For i = 2 To 8

  
    If Application.Weekday(Sheets(n).[B1]) = Sheets('s1').Range('A' & i) Then
        Sheets('s1').Range('C' & i) = Sheets('s1').Range('C' & i) + Sheets(n).Range('B3')
      
    End If
    

Next i
n = n + 1
Wend
End Sub

 

[Emmanuel]

Re:souci avec un code pour transfert d'une à une a

Bonjour Abel et dg62

Merci beaucoup pour vos solution
j'essaye de suite
et je vous tient au courant

Bonne journée

Emmanuel

 

[emmanuel]

Re:souci avec un code pour transfert d'une à une a

RE

merci pour les explications Abel
ca fonctionne très bien

bonne journée

Emmanuel