Aide pour supprimer saut de ligne en VBA

philipos_353 · 16 Décembre 2011

Bonjour,
J'essaye de réactualiser une ancienne macro, pourriez vous m'aider à supprimer les saut de ligne et les inverssions de quelques numéro de la colonne A, voir le fichier en PJ, j'ai réussi à définir la première ligne ou le texte doit commencer mais pas plus.

' Traitement d'un stock
Private Function Stock(i, c, t)

With Sheets(t)
l = 5 ' 1ère ligne vérifiée dans le sommaire
While (.Cells(l, 2) > "")
a$ = .Cells(l, 2)
e$ = .Cells(l, 5)
b$ = .Cells(l, 3)
d$ = .Cells(l, 4)
f$ = .Cells(l, 6)
s$ = .Cells(l, 7)
qnom = .Cells(l, 8)
un$ = .Cells(l, 9)
qext = .Cells(l, 10)
' Si quantité existante < quantité nominale
' alors insérer dans le bon de commande la qté manquante
If (qext < qnom) Then
With Sheets("Requisition ")
X = 1 + (i - 1) Mod 16
lbc = 14 + X + 23 * c
If X = 15 Then c = c + 1
.Cells(lbc, 1) = a$
.Cells(lbc, 2) = s$
.Cells(lbc, 4) = d$
.Cells(lbc, 5) = e$
.Cells(lbc, 3) = f$
.Cells(lbc, 5) = qext
.Cells(lbc, 6) = qnom - qext
End With
i = i + 1
End If
l = l + 1
Wend
End With

Stock = i + c * 1000

End Function

julberto · 16 Décembre 2011

Re : Aide pour supprimer saut de ligne en VBA

Bonjour philipos_353,

Pour ôter les lignes vides et refaire la numérotation :

VB:

Option Explicit
'
Sub Ote_Lignes_vides()
Dim fin As Long

With Worksheets("Requisition ")
   fin = .Range("A65635").End(xlUp).Row
   Do
      If .Cells(fin, 1) = "" Then .Rows(fin).EntireRow.Delete
      fin = fin - 1
   Loop Until fin = 5
   .Range("A6") = 1: .Range("A7") = 2
   fin = .Range("A65635").End(xlUp).Row
   .Range("A6:A7").AutoFill Destination:=.Range("A6:A" & fin), Type:=xlFillDefault
End With

End Sub

Pour le reste je n'ai pas compris.
cordialement

philipos_353 · 17 Décembre 2011

Re : Aide pour supprimer saut de ligne en VBA

Merci julberto, désolé je ne retrouvai plus mes message du Forum

Aide pour supprimer saut de ligne en VBA

philipos_353

XLDnaute Nouveau

Pièces jointes

julberto

XLDnaute Occasionnel

philipos_353

XLDnaute Nouveau

Discussions similaires