Debutant.Instructions avec if

Bonjour

Débutant, je bloque sur fin instructions

Citation:

---

Bloc If sans End if

---

Surement du mal à chercher

Merci de votre aide

Code:

---

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

---

Hello,

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

Code:

---

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

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

Code:

---

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

---

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:

---

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:

---

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:

---

1 2 3 4

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

---