Excel - extraire année d'une cellule texte Résolu

Question

Bonjour, 

Question insoluble pour moi... 
Je travaille sur un tableur qui me sert de base pour des légendes d'images. J'ai une colonne (disons « A ») dans laquelle se trouve ma légende et en colonne « B » j'aimerai indiquer l'année. 
En clair, j'essaie d'écrire une formule qui dirait Si la cellule A1 contient un nombre entre1900 et 2000 alors écrire ce nombre dans la cellule A2. 

Merci de votre aide, 
Cordialement,

michel_m · Answer

bonjour,
=Si(ET(A1>=1900;A1<2000);A1;"")

ccm81 · Answer

bonjour 

sans maco je ne vois pas 
avec macro à copier dans un module (modifier les constantes) 

Option Explicit 

Const nomF = "Feuil1" 
Const co As String = "A" 
Const lideb As Byte = 1 

Sub ExtraitAnnee() 
Dim a 
Dim c As String 
Dim ranga As Long 
Dim li As Long, lifin As Long 
' derniere ligne 
  lifin = Sheets(nomF).Cells(65536, co).End(xlUp).Row 
' on y va 
  With Sheets(nomF) 
    For li = lideb To lifin 
      c = .Cells(li, co).Value 
      For ranga = 1 To Len(c) - 3 
        a = Mid(c, ranga, 4) 
        If IsNumeric(a) Then 
          If a >= 1900 And a <= 2000 Then 
            .Cells(li, co).Offset(0, 1).Value = a 
          End If 
        End If 
      Next ranga 
    Next li 
  End With 
End Subbonne suite

Excel - extraire année d'une cellule texte

2 réponses

Discussions similaires

Newsletters