4020 résultats trouvés

par Theze
26 novembre 2019, 14:53
Forum : Excel - VBA
Sujet : Retirer les lignes sans données du tableau?
Réponses : 3
Vues : 28

Re: Retirer les lignes sans données du tableau?

Bonjour, Une autre proposition en VBA. Exécuter la sub "Test()" : Sub Test() Dim Plage As Range Set Plage = DefPlage(ActiveSheet) Plage.Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range On Error G...
par Theze
26 novembre 2019, 14:46
Forum : Excel - VBA
Sujet : [VBA] Parcourir une colonne avec boutons < >
Réponses : 3
Vues : 52

Re: [VBA] Parcourir une colonne avec boutons < >

Bonjour,

Content de t'avoir aidé :wink:
par Theze
25 novembre 2019, 15:36
Forum : Excel - VBA
Sujet : [VBA] Parcourir une colonne avec boutons < >
Réponses : 3
Vues : 52

Re: [VBA] Parcourir une colonne avec boutons < >

Bonjour, De cette façon peut être ? Dim Row_DerLig As Integer Dim Val_IdFiche As Integer Dim New_Row As Integer Sub monte() New_Row = New_Row - 1 If New_Row < 2 Then New_Row = 2 If New_Row = 2 Then ActiveSheet.Shapes("BoutonUp").Visible = False ActiveSheet.Shapes("BoutonDown").Visible = True Else Ac...
par Theze
22 novembre 2019, 14:52
Forum : Excel - VBA
Sujet : Lettre + chiffre garder que les chifres
Réponses : 6
Vues : 68

Re: Lettre + chiffre garder que les chifres

Bonjour,

Une piste :
Sub Test()

     Dim Chaine As String
     
     Chaine = "SAINT MAXIMAIN LA SAINTE BAUNE SIN 2019-8238"
     
     MsgBox "SIN" & Split(Chaine, "SIN")(1)
     
End Sub
par Theze
22 novembre 2019, 09:55
Forum : Excel - VBA
Sujet : Problème dans code VBA
Réponses : 9
Vues : 45

Re: Problème dans code VBA

Bonjour,

Vérifies l'orthographe dans tes cellules B2 que ça corresponde bien avec "Roue Libre" et "Verrou Total", peut être un espace parasite !
par Theze
17 novembre 2019, 09:23
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 222

Re: Onglet couleur

Bonjour, Avec IsNumeric() qui fonctionne très bien chez moi sur ton dernier fichier : Private Sub Workbook_Open() Dim Fe As Worksheet Dim NumSem As Integer For Each Fe In Worksheets If IsNumeric(Fe.Name) Then '<--- teste si le nom est numérique ! Select Case Weekday(DateSerial(Year(Date), Month(Date...
par Theze
13 novembre 2019, 18:53
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 222

Re: Onglet couleur

Bonjour,

Testes avec IsNumeric !
If IsNumeric(Fe.Name) = True Then
    ‘C’est Ok !
End If
par Theze
12 novembre 2019, 21:03
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 222

Re: Onglet couleur

Il te faut l’éviter comme j’ai fais pour l’onglet "Date" :
If Fe.Name <> "Date" And Fe.Name <> "Recap" Then
´...
par Theze
12 novembre 2019, 07:28
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 222

Re: Onglet couleur

Bonjour, Une piste à mettre dans le module du classeur (ThisWorkbook) sur ouverture du classeur : Private Sub Workbook_Open() Dim Fe As Worksheet Dim NumSem As Integer For Each Fe In Worksheets If Fe.Name <> "Date" Then Select Case Weekday(DateSerial(Year(Date), Month(Date), Fe.Name), vbMonday) Case...
par Theze
12 novembre 2019, 06:40
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 117

Re: Module pour calculer montant TTC

Bonjour, Hello André, Chris (°v°)° coronae35 dit: Normalement si on choisit 25 en quantité, 120 en prix HT, 20% de TVA, 15% de taux de remise, on trouve un montant TTCà payer de 3060. J'aimerais avoir le montant TTC pour n'importe quelle quantité vendue, un prix unitaire HT, un taux de TVA et un tau...