Discussion :

[Fred_rt]

Bonjour,

A priori, c'est simple...pas pour moi on dirait. J'ai un problème dans la syntaxe.
J'ai un tableau qui contient des informations que je dois copier dans 2 feuilles différentes selon certaines conditions. La première est commune et est "OUI" la seconde varie, c'est la durée 6 ou 15 jours.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Presence()
Dim i As Integer
 
For i = 2 To 81
    If (Workbook("Formation.xlsm").sheets("Session").Cells(i, 8) = "OUI") and if (thisworkbook.sheets("Session").Cells(i, 7) = "15 jours") then
        ThisWorkbook.Sheets("Session").Cells(i, 1).Copy
        ThisWorkbook.Sheets("Présence-F2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlValue
    Else if thisworkbook.sheets("Session").Cells(i, 8) = "OUI" and if thisworkbook.sheets("Session").Cells(i, 7) = "6 jours" then
        ThisWorkbook.Sheets("Session").Cells(i, 1).Copy
        ThisWorkbook.Sheets("Présence-F1").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlValue
    End If
Next i
End Sub

Le if n'est pas bon. J'ai essayé plusieurs choses sans succès (for each par exemple, fonctionne bien avec une condition).

Voilà.

Merci d'avance.

Cordialement,

Fred

[halaster08]

Bonjour,

Tu ne dois pas mettre deux if sur la meme ligne

Code :

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

if condition1 and condition2 then

[Fred_rt]

Bonjour,

Yes, tout à fait. J'ai les yeux qui piquent...

Merci halaster08

[casefayere]

Bonjour,
essayes

Code :

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

    If Workbook("Formation.xlsm").Sheets("Session").Cells(i, 8) = "OUI" And ThisWorkbook.Sheets("Session").Cells(i, 7) = "15 jours" Then

Code :

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

    ElseIf ThisWorkbook.Sheets("Session").Cells(i, 8) = "OUI" And ThisWorkbook.Sheets("Session").Cells(i, 7) = "6 jours" Then

[casefayere]

Perso, je l'aurais écrit comme ça

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 Presence()
Dim i As Integer
 
For i = 2 To 81
  If Workbook("Formation.xlsm").Sheets("Session").Cells(i, 8) = "OUI" Then
    If ThisWorkbook.Sheets("Session").Cells(i, 7) = "15 jours" Then
      With ThisWorkbook.Sheets("Présence-F2")
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Session").Cells(i, 1)
      End With
    ElseIf ThisWorkbook.Sheets("Session").Cells(i, 7) = "6 jours" Then
      With ThisWorkbook.Sheets("Présence-F1")
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Session").Cells(i, 1)
      End With
    End If
  End If
Next i
End Sub

[Fred_rt]

Bonjour Dom,

Je vois ton code. A priori, il y aurait une meilleure exécution, plus rapide, plus propre ?

Cordialement,

Fred

[casefayere]

juste pour la bonne lecture, moins de risque d'erreur, et le PasteSpecial avec value peut s'écrire simplement avec "=", mais rien ne t'y oblige,

[Invité]

Bonsoir,
Personnellement j'opterai pour un filtre élaboré

http://philippetulliez.developpez.co...dvancedfilter/