XL 2013 Insertion cellule manquante

[Claude5]

Bonjour et meilleurs vœux 2018

dans mon fichier, de base j'ai une série d'horaires qui ne suivent pas (800 et 1800 manquants). Comme je dois copier/coller les données obtenues dans un autre fichier, pour respecter la logique horaire, je dois détecter les horaires manquants et les insérer manuellement.

N'y a t-il pas un moyen plus sophistiqué de pouvoir insérer justement les horaires manquants dans une chaine?

Dans ma PJ j'ai le cas de données horaires verticales et horizontales

Merci de votre aide

 

[CISCO]

Bonjour

Tu peux faire comme en pièce jointe, à savoir

* Créer un second tableau avec la bonne colonne J et la formule dans K3 (adaptée à ton premier tableau), formule qui peut être copier-coller vers la droite et vers le bas aussi longtemps que désiré.
* Copier-coller les valeurs de ce second tableau.

@ plus

 

[kingfadhel]

Bonjour, le forum

Un bout de code qui fait l'affaire

Sub manquent()
lig = Cells(6500, 1).End(xlUp).Row
    For i = 4 To lig
    If Cells(i, 1) / 100 <> (Cells(i - 1, 1) / 100) + 1 Then
    Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(i, 1) = Cells(i - 1, 1) + 100
    lig = lig + 1
    End If
    Next
    Range("A3:A" & lig).Copy
    Range("K3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Columns("K:XFD").EntireColumn.AutoFit
[K3].Select
End Sub

 

[Claude5]

[résolu]
merci à vous deux de vos propositions