[Résolu] Boucle sur titre de colonne

[Profane]

Bonjour a tous,
me voici dans le monde merveilleux des boucles...
souci j'essaye d'en faire une, sur les colonnes de titres de ma feuille afin de detecter le mot "date" et s'il est présent d'appliquer format date spécifique à la colonne
malheureusement cela ne fonctionne pas
je sollicite donc votre aide qui sera la bienvenue ;-)

voici le code

Sub test_date()
With Sheets("Import Hosting")

    For I = A To Z
    valeurCherchee = "*Date"
    .Columns("I:1").Select
    .columms("I:1").Find(what:=valeurCherchee, LookIn:=xlValues, lookat:=xlWhole).EntireColumn.Select
     With Selection
        Selection.NumberFormat = "dd"" jours, ""hh""h"":mm""mn"""
        End With
    Next i
End With
End Sub

merci par avance

 

[CBernardT]

Re : Boucle sur titre de colonne

Bonjour profane et le forum,

Si j'ai bien compris, une syntaxe possible :

Sub test_date()
Dim i As Integer
With Sheets("Import Hosting")
For i = 1 To 26
If .Cells(1, i) = "Date" Then
.Columns(i).NumberFormat = "dd/mm/yyyy"
Exit For
End If
Next i
End With
End Sub

 

[Gorfael]

Re : Boucle sur titre de colonne

Salut Profane et le forum
Pas sûr de tout comprendre

Sub test_date()
Dim I As Integer
Dim Cel As Range

With Sheets("Import Hosting")
    For I = 1 To 26
        valeurCherchee = "*Date"
        Set Cel = .Columns(I).Find(what:=valeurCherchee, LookIn:=xlValues, lookat:=xlWhole)
        If Not Cel Is Nothing Then Columns(I).NumberFormat = "dd"" jours, ""hh""h"":mm""mn"""
    Next I
End With
End Sub

Si tu utilises la méthode Find, pourquoi faire une boucle 😕

 

[Si...]

Re : Boucle sur titre de colonne

Salut

Si... Find, comme le dit Gorfael : sans boucle (valeur cherchée en ligne 1) !

Sub test_date()
  With Sheets("Import Hosting")
    .Columns(.Rows(1).Find("*Date", LookIn:=xlValues, _
      lookat:=xlWhole).Column).NumberFormat = "dd"" jours, ""hh""h"":mm""mn"""
  End With
End Sub

 

[Gorfael]

Re : Boucle sur titre de colonne

Salut Si... et le forum
Ça présuppose qu'il n'y a qu'une seule colonne qui puisse contenir des dates... alors qu'il fait un Find avec comme valeur "*Date"...
A+

 

[Misange]

Re : Boucle sur titre de colonne

Bonjour

Sub test_date()
With Sheets("Import Hosting")

    For I = A To Z  'excel ne sait pas faire de boucle sur les lettres de l'alphabet
    valeurCherchee = "*Date"
    .Columns("I:1").Select  ' ce n'est pas une colonne :) columns(9) ou  Columns("I:I")
     .columms("I:1").Find(what:=valeurCherchee, LookIn:=xlValues, lookat:=xlWhole).EntireColumn.Select  'là tu cherches dans toute ta colonne
     With Selection
        Selection.NumberFormat = "dd"" jours, ""hh""h"":mm""mn""" 
        End With
    Next i
End With
End Sub

une proposition parmi des tas d'autres possibles

Sub test()
For c = 1 To 26
   If InStr(1, Cells(1, c), "date") <> 0 Then
      Columns(c).NumberFormat = "dd ""jours"" h ""heures"" mm ""minutes"";@"
   End If
Next c
End Sub

 

[Profane]

Re : Boucle sur titre de colonne

Bonjour a tous
merci tout d'abords pour votre aide
j ai adopté la syntaxe de Gorfael car c'est celle qui traite plusieurs colonnes a la fois sans relance de la macro
bonne journée a vous tous

 

[Misange]

Re : [Résolu] Boucle sur titre de colonne

Parfait 🙂
(pour info la syntaxe que je propose ne nécessite pas de relancer la macro, elle boucle sur les 26 premières colonnes de la page 🙂

 

[Si...]

Re : [Résolu] Boucle sur titre de colonne

Salut

Gorfael, ta remarque était fort pertinente alors que la qualité de ma réponse, proportionnelle à celle de la demande, était des plus médiocres 😉.