VBA-Ecrire dans une cellule la valeur d’une variable texte

Bonjour,

J’ai un souci que je ne parviens pas à résoudre.

Il s’agit d’écrire dans une cellule la valeur d’une variable texte.

La valeur de cette variable est elle-même issue de la valeur d’une autre cellule (en fonction de quelques tests préalables).

Je vous montre ce qui ne marche pas :

Sub grandemacro()

Dim critère As String

‘ toute une série de tests pour définir quelle cellule viendra donner sa valeur à la variable critère, ici le test aboutit sur S5 dans laquelle il est inscrit XX

critère = Range("S5").Value

Sheets("Rapport").Select

Cells(1, 1).Value = critère

‘rien ne s’affiche en A1 de la feuille rapport

‘la valeur de la variable critère quand je fais du pas à pas est : « XX », critère semble donc bien prendre la valeur souhaitée

End Sub

‘Et j’ai fait un test, ceci fonctionne :

Sub textevariabledanscellule()

Dim critère As String

critère = "XX"

Cells(1, 1).Value = critère

‘il s’affiche en A1 de la feuille rapport le texte souhaité : XX

End Sub

Pourrait-ce provenir de la cellule S5 ? critère prend pourtant bien la valeur souhaitée…

Merci d’avance de vos réponses.

Bizarre, ton code fonctionne chez moi !

juste pour vérifier que tu ne te trompes pas de feuille ou de cellule, copie ce code dans un module et vois le résultat que te donne la boite de dialogue (nom de l'onglet et adresse de la cellule contenant XX)

Sub testMacro()

Dim myrange As Range

For Each sh In Sheets
    Set myrange = sh.Cells.Find("XX", lookat:=xlWhole)

    If Not myrange Is Nothing Then
        MsgBox sh.Name & " - " & myrange.Address
    End If

Next sh

End Sub