Boucle if dans boucle with

[mawua]

Rebonjour tout le monde,

Oui le if dans le with, pourquoi ça marche pas ?

VB ne reconnait pas le End with et ne valide pas la macro.

Why ???

 

[PascalXLD]

Re : Boucle if dans boucle with

Bonjour

Il n'y a pas de raison mais il faudrait que tu montres ton code la divination n'étant pas encore notre fort, quoique .....

Bonne journée

 

[mawua]

Re : Boucle if dans boucle with

Bonjour Pascal,
Si je met une apostrophe devant les lignes du if et du else aucun problème
mais si je le laisse tel quel, rien à faire.

Private Sub btnValider_Click()
Dim Ligne As Long
USFOS.Show
For n = 3 To 65536 Step 24
If Sheets("BDD").Range("B" & n) = "" Then
Ligne = n
Exit For
End If
Next n
With ThisWorkbook.Sheets("BDD")
.Cells(Ligne, 2) = Sheets("page 1").Range("D18").Value 'numéro du marché
.Cells(Ligne, 3) = Sheets("page 1").Range("F18").Value2 'date du marché
If Sheets("page 1").Range("G21").Value <> "" Then 'test existance OS dans avis de situation
.Cells(Ligne, 4) = Sheets("page 1").Range("G21").Value
Else: .Cells(Ligne, 4) = USFOS("TextBox1").Value 'ordre de service
.Cells(Ligne, 34) = Sheets("page 2").Range("g17") 'Avance forfaitaire

.Range(.Cells(Ligne, 1), .Cells(Ligne, 100)).Borders.LineStyle = xlContinuous 'Bordure de cellules


End With
End Sub

Excel me dit dit qu'il y a un end with sans with...

 

[mawua]

Re : Boucle if dans boucle with

Bah oui, hein, j'ai pas mis de "end if"
Mawua à la niche !!!

 

[PascalXLD]

Re : Boucle if dans boucle with

Re

Bon j'allais te dire il manque un end if mais tu as vu tout seul

Bon WE

 

[mawua]

Re : Boucle if dans boucle with

Le moins que je puisse te souhaiter est un bon week-end.
Merci pour ta disponibilité.