Discussion :

[CmzxNene]

Bonjour,

Dans ma colonne A j'ai des nombres.
Je souhaiterais rajouter un R devant chaque nombre
Pouvez-vous m'orienter sur le code ?

Merci de votre aide

[Marc-L]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Demo()
    If Application.Count(Columns(1)) Then
        TB = ActiveSheet.UsedRange.Columns(1)
 
        For R& = 1 To UBound(TB)
            If TB(R, 1) > "" And IsNumeric(TB(R, 1)) Then TB(R, 1) = "R" & TB(R, 1)
        Next
 
        ActiveSheet.UsedRange.Columns(1) = TB
        Erase TB
    End If
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[clementmarcotte]

Bonjour

Pourquoi un code ?

Tu édites ta cellule A1 en mettant ton R en début de cellule. Tu valides et tu recopies vers le bas. (Éprouvé avec Excel 2010.)

[nibledispo]

Bonjour,

Ceci devrait convenir : j'ai prévu un espace entre le R et le nombre que tu peux retirer si tu veux "R " -> "R"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub es()
For i = 1 To 4      'remplacer 4 par la longueur de la colonne A
    Cells(i, 1) = "R " & CStr(Cells(i, 1))
Next i
End Sub

Cordialement.

[Marc-L]

Et si dans la colonne il n'y a pas que des nombres, ne serait-ce une cellule vide ? …


__________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a, plus on l'étale !

[nibledispo]

Je vois qu'on s'est tous croisés sans se rencontrer. J'ai seulement été le moins rapide à taper mon bout de code.

Marc: j'ai fait l'acquisition d'office 2013 (version petite entreprise et famille) chez GROSBILL. Mon copain passe ce matin faire le nécessaire (la boite ne contient pas un CD mais une carte de téléchargement). J'espère que mon problème disparaitra.

[Marc-L]

Croisons les doigts Paul …

[CmzxNene]

Bonjour à tous,

Et merci à Marc pour son code.
C'est ce que je recherchais.

Si la cellule est vide, il ne se passe rien : parfait !

Cordialement

[Marc-L]

Ne pas oublier :

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !