Discussion :

[alifib]

Bonjour

Débutant, je bloque sur fin instructions

Bloc If sans End if

Surement du mal à chercher

Merci de votre aide

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
23
24
25
26
27
28
29
30
31
32
33
34
Sub testselectioncolomn()
'
' testselectioncolomn Macro
'
With Sheets("JF").Select
If Range("a1") = "b1" Then
    Range("B2:B14").Select
    Selection.Copy
    Range("N2:N14").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
    If Range("a1") = "c1" Then
    Range("c2:c14").Select
    Selection.Copy
    Range("N2:N14").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
    If Range("a1") = "d1" Then
    Range("d2:d14").Select
    Selection.Copy
    Range("N2:N14").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
    If Range("a1") = "e1" Then
    Range("e2:e14").Select
    Selection.Copy
    Range("N2:N14").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End If
End Sub

[don_pets]

Hello,

Pour faire simple quand tu commences une instruction, aussi surprenant soit-il, il faut que tu la termines

Code :

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

1
2
3
4
5
6
7
 
 
With Sheets(1)
    If Range("c4") = "plouf" Then
    MsgBox ("youpi")
    End If
End With

with implique end with
if implique end if

[Thumb down]

Bonjour,
With n'a pas le moindre intérêt si on ne utilise pas

Code :

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

1
2
3
With Sheets(1)
    .Range("A1").Copy .Range("A2") 'Range("A1") et  Range("A2") font référence au with via  .Range
End With

[Menhir]

On ne peut se passer du End If que si le If tient en une ligne avec une seule instruction pour Then et éventuellement (mais pas obligatoirement) une instruction pour Else.

Code :

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

If Resultat = 1 Then MsgBox("Gagné") Else MsgBox("Perdu")

Dans ton code, évite les Select sur les Range.
Je sais que l'enregistreur automatique de macro en met partout, mais c'est une mauvaise habitude.

Et fais des itération sur TOUTES les structures, y compris les With, sinon tu vas rapidement te paumer quand tes codes seront plus complexes.

Cela dit, dans ton cas, ce ne sont pas des If qui seraient conseillés mais un Select Case.
A lire : https://docs.microsoft.com/fr-fr/off...case-statement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testselectioncolomn()
    Sheets("JF").Select
    Select Case Range("A1")
    Case "b1" 
        Range("B2:B14").Copy Range("N2")
    Case "c1"
        Range("C2:C14").Copy Range("N2")
    Case "d1"
        Range("D2:D14").Copy Range("N2")
    Case "e1"
        Range("E2:E14").Copy Range("N2")
    End Select
End Sub

Il est certainement possible de faire encore plus simple.

Code :

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

1
2
3
4
Sub testselectioncolomn()
    Sheets("JF").Select
    Range(Range("A1").Value)).Offset(1, 0).Resize(13, 1).Copy Range("N2")
End Sub