Rajout d'un chiffre dans plusieurs cellules

Bonjour,

J'ai un grand tableau avec des cellules comportant des chiffres et je souhaiterais rajouter le chiffre 49 devant ces chiffres y a t'il une méthode automatique pour évité de saisir cellule par cellule.

Merci pour vos réponses

Bonjour sourice,

En supposant que tu souhaites rajouter 49 devant le nombre qui se trouve en cellule A1,

Il te suffit d'entrer la formule (en A2 par exemple)

=49&A1

cordialement

Bonjour

Je me suis certainement mal exprimé, j'ai une serie de cellule avec des codes tel que "B2001" "RQ127" "CLI98" etc..

et dans ces cellules je voudrais rajouter 49 devant chaque code, mais sans avoir besoin de le faire manuellement à chaque cellule

Merci

Bonjour et bienvenue

Puisque la solution de ketamacanna ne correspond pas à ton attente, merci de joindre un extrait de ton fichier qui nous indique ce que tu as et ce que tu veux obtenir.

Comment Joindre Un Fichier

Amicalement

Nad

bonjour

sans fichier ;ni exemple ; comme ca n'a pas l'air d'etre avant les lettres , il ne reste qu'avant les chiffres

matricielle a valider avec :ctrl ,maj,entrée : les 3 en meme temps

c'est pas dur de dire :j'ai jb007 je voudrai jb49007 ; a moins que ....

cordialement

@ tulipe : Sauf erreur de ma part, ton fichier ne fonctionne pas pour B2001 par exemple.

cordialement

ce que j'ai ce que je voudrai

B2001 49B2001

CLI85 49CLI85

RQ125 49RQ125

et ainsi de suite

cdt

Bonjour

Tes codes sont dans quelle colonne ?

A te relire

Amicalement

Nad

Bonjour à tous,

ici en colonne A

Sub Ajoute49()
Dim Lg%, i%
    Application.ScreenUpdating = False
    Lg = Range("a65536").End(xlUp).Row
        For i = 2 To Lg
            If Left(Cells(i, "a"), 2) <> "49" Then
                Cells(i, "a") = "49" & Cells(i, "a")
            End If
        Next i
End Sub

Amicalement

Claude

Exemple

Re

Ou, pour les codes en colonne A :

Sub TEST()
Dim derlg As Integer
Dim c As Range
derlg = Range("A65536").End(xlUp).Row
For Each c In Range("A1:A" & derlg)
If c <> "" Then c = 49 & c
Next
End Sub

Nad

re,

oK Nad, mais attention à ne pas lancer la macro plusieurs fois !

Amicalement

Claude

Re

C'est évident !

Par contre, dans le tien, s'il y a des cellules vides elle prennent la valeur 49. A prévoir peut-être selon le fichier de sourice.

Amicalement

Nad

re,

exact, alors :

Sub Ajoute49()
Dim Lg%, i%
    Application.ScreenUpdating = False
    Lg = Range("a65536").End(xlUp).Row
        For i = 2 To Lg
            If Left(Cells(i, "a"), 2) <> "49" And Cells(i, "a") <> "" Then
                Cells(i, "a") = "49" & Cells(i, "a")
            End If
        Next i
End Sub

Claude

bonjour Ketamacana

bien vu , j'ai mal testé en "baclant " avant d'aller manger

je me suis repris , quoique pour rien ;puisque dès le debut tu avais solutionné ....

considerons que cela peux toujours servir et,je m'excuse aupres des lecteurs interessés de les avoir induits en erreur

bonne apres midi

mes codes se trouve en colonne E et je voudrais les mettre avec le 49 en colonne F

Merci

Cordialement

Re

Est-ce que la colonne F est vide ou faut-il insérer une colonne ?

Nad

oui elle est vide

Le code de Claude adapté :

 Sub Ajoute49()
    Dim Lg%, i%
        Application.ScreenUpdating = False
        Lg = Range("E65536").End(xlUp).Row
            For i = 2 To Lg
                If Left(Cells(i, "E"), 2) <> "49" And Cells(i, "E") <> "" Then
                    Cells(i, "F") = "49" & Cells(i, "E")
                End If
            Next i
    End Sub

Nad

Merci

c'est simple et ça fonctionne encore merci pour vos réponses