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

Emmanuel · 11 Mai 2005

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 · 11 Mai 2005

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 · 11 Mai 2005

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.

Code:

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 · 12 Mai 2005

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 · 12 Mai 2005

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

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

Emmanuel

Guest

Pièces jointes

Abel

XLDnaute Accro

dg62

XLDnaute Barbatruc

Emmanuel

Guest

emmanuel

Guest

Discussions similaires