XL 2016 Version excel

Staple1600

XLDnaute Barbatruc

• 16 Février 2020

• #2

Bonjour le fil, AMAT

Sans pouvoir lire le code VBA, difficile d'en dire plus, non ?

 

Vote positif 0 Vote négatif

A

AMAT

XLDnaute Nouveau

• 16 Février 2020

• #3

Salut,
Je vous fait suivre le fichier 😉
mp: pour débloquer les classeur c'est 3325
mp: pour le code VBA slsng600

 

Pièces jointes

• Scannage Pompes V3.3assemblage1tdetest.xls

  465.5 KB · Affichages: 5

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2020

• #4

Re

AMAT
NB: tu sais que les mots de passe sont illusoires sur Excel.
Si oui, alors inutile d'en affublé ton classeur, non ? 😉

Je vais voir ton classeur de ce pas.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2020

• #5

Re

Donc, je suis allé voir
Je subodore où le bât blesse 😉
Alors en attendant que j'ai fini ma subodoration
Une petite macro ( pour patienter)

VB:

Sub VarianteEcriture()
Dim X As Range
Set X = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)
If X.Row < 6 Then
MsgBox "Aucunes données à supprimer!", 16, "MESSAGE D'INFORMATION"
GoTo RIENASUPP
End If
If MsgBox("Voulez-vous vraiment annuler le dernier scannage?" & vbCrLf & vbTab & X(1, 2), 36, "MESSAGE DE CONFIRMATION") = vbYes Then
X.Resize(, 3) = ""
End If
RIENASUPP:
End Sub

C'est juste une variante d'écriture (pour le fun)
Faut bien s'occuper pendant la tempête 😉

 

Vote positif 0 Vote négatif