Problème concaténation

Bonjour,

Je suis novice sur excel et je rencontre un problème lorsque j'essaie de concaténer du texte avec la valeur d'une autre cellule dans une seule cellule.

Mon programme veut fusionner des cases en fonction de la longueur de la première semaine du mois pour ensuite écrire la bonne semaine dans toutes les cases du mois : si le mois commence par un mardi la première semaine fait 6 jours si c'est un mercredi la première semaine n'en fait que 5 et ainsi de suite.

Mon problème est que mon programme affiche bien les numéro des 3 premières semaines (sur les 5) lorsque le premier jour du mois est un lundi mais ils n'affiche bien que les 2 premières semaines si le premier jour est un mardi. Mon programme fusionne bien les cellules et affiche bien les bordures en fonction du premier jour du mois.

Voici la partie de mon programme qui dysfonctionne :

'concaténer infos semaine

'1ère Semaine

Range("C5") = "Semaine " & Range("AQ5")

'2è Semaine

If [B5] = 1 Then
Range("C15") = "Semaine " & Range("AQ2")
End If

If [B5] = 2 Then
Range("C13") = "Semaine " & Range("AQ2")
End If

If [B5] = 3 Then
Range("C11") = "Semaine " & Range("AQ2")
End If

If [B5] = 4 Then
Range("C9") = "Semaine " & Range("AQ2")
End If

If [B5] = 5 Then
Range("C7") = "Semaine " & Range("AQ2")
End If

'3è Semaine

If [B5] = 1 Then
Range("C25") = "Semaine " & Range("AR2")
End If

If [B5] = 2 Then
Range("C23") = "Semaine " & Range("AR2")
End If

If [B5] = 3 Then
Range("C21") = "Semaine " & Range("AR2")
End If

If [B5] = 4 Then
Range("C19") = "Semaine " & Range("AR2")
End If

If [B5] = 5 Then
Range("C17:C26") = "Semaine " & Range("AR2")
End If

'4èSemaine

If [B5] = 1 Then
Range("C35") = "Semaine " & Range("AS2")
End If

If [B5] = 2 Then
Range("C23") = "Semaine " & Range("AS2")
End If

If [B5] = 3 Then
Range("C21") = "Semaine " & Range("AS2")
End If

If [B5] = 4 Then
Range("C19") = "Semaine " & Range("AS2")
End If

If [B5] = 5 Then
Range("C17") = "Semaine " & Range("AS2")
End If

'5è Semaine

If [B5] = 1 Then
Range("C35") = "Semaine " & Range("AT2")
End If

If [B5] = 2 Then
Range("C23") = "Semaine " & Range("AT2")
End If

If [B5] = 3 Then
Range("C21") = "Semaine " & Range("AT2")
End If

If [B5] = 4 Then
Range("C19") = "Semaine " & Range("AT2")
End If

If [B5] = 5 Then
Range("C17") = "Semaine " & Range("AT2")
End If

'6è semaine

If [B5] = 1 Then
Range("C55") = "Semaine " & Range("AU2")
End If

If [B5] = 2 Then
Range("C53") = "Semaine " & Range("AU2")
End If

If [B5] = 3 Then
Range("C51") = "Semaine " & Range("AU2")
End If

If [B5] = 4 Then
Range("C49") = "Semaine " & Range("AU2")
End If

If [B5] = 5 Then
Range("C47") = "Semaine " & Range("AU2")
End If

End Sub

Merci d'avance pour vos réponse qui sont les bienvenues !

Nicolas.

Bonjour Nicolas.C et

Une petite présentation ICI serait la bienvenue

Je vous invite vivement à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment :

• Pour plus de lisibilité, utilisez la fonctionnalité pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

Merci d'y faire attention SVP

De plus pourquoi vouloir utiliser VBA alors que de simple formules peuvent faire le boulot

Cordialement