Intégrer une variable sur extraction minutes

fleet21

XLDnaute Junior
Bonjour à tous,

Je souhaite insérer une variable appelée col sur la fonction d'extraction des minutes suivantes : Minute(["B" & col]).

Le problème est que ce code est incorrect. Problème de syntaxe ou tout simplement pas possible ?
 

Pièces jointes

  • Essai.xlsm
    14.5 KB · Affichages: 59

job75

XLDnaute Barbatruc
Bonjour fleet21, Lone-wolf, Pierre, le forum,

Sur un grand tableau ceci est très rapide car on ne traite pas les cellules une par une :
Code:
Sub Minutes()
With ActiveSheet.UsedRange.Columns(2).Offset(1) 'une ligne de titres
    If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
    .FormulaR1C1 = "=IFERROR(MINUTE(""""&RC[-1]),"""")"
    .Value = .Value 'supprime les formules
End With
End Sub
PS : les valeurs zéro ont un sens, il faut les afficher.

Bonne journée.
 

job75

XLDnaute Barbatruc
Re,

Complément si l'on veut supprimer les cellules vides en 1ère colonne :
Code:
Sub Minutes()
With ActiveSheet.UsedRange.Columns(2).Offset(1)
    If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
    .FormulaR1C1 = "=IFERROR(MINUTE(RC[-1]),"""")"
    .Value = .Value 'supprime les formules
    With .Offset(, -1).SpecialCells(xlCellTypeBlanks) 'cellules vides en 1ère colonne
        Union(.Cells, .Offset(, 1)).Delete xlUp
    End With
    With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub
A+
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonjour job75, pierre jean, fleet :)

@ fleet: ma macro donne le même résultat.

VB:
Sub test()
Dim plage As Range, cel As Range, derlig As Long

    derlig = Range("a" & Rows.Count).End(xlUp).Row  'dernière ligne remplie

    Set plage = Range("b2:b" & derlig) 'Plage résultats

    For Each cel In plage 'Pour chaque cellule de la colonne B
        'la cellule extrait les minutes de la colonne A, avec la fontion Minute
        cel.Value = minute(cel.Offset(, -1).Value)
    Next cel

End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO