insertion d'un prefixe

[jp]

bonjour a tous

Je cherche a inserer devant un colonne de 5000 lignes, une chiffre present en A1.

par contre le chiffre ne devra pas etre inserer s'il est deja present

exemple

A1 =16


C2 : 1ab1
C3 : 16 ab4


le resultat devra etre
C2: 16 1ab1
C3: 16 ab4 et pas 16 16 ab4


merci par avance

Jp

 

[le Fnake]

Bonjour Jp

Voila ca que je te propose et qui semble marcher chez moi :

Sub test()
Dim L as Integer
Dim val
val = Range("A1").Value
L = Len(val)
For i = 2 To 3
If Not (Left$(Range("C" & i), L) = val) Then
Range("C" & i).Value = val & " " & Range("C" & i)
End If
Next
End Sub

le Fnake

 

[K@d]

Bonjour,

une petite macro de ce genre devrait fonctionner :

Sub Inserer_Chiffre

Dim LaCellule as object
Dim ChiffreAInserer as double

'on définit le chiffre à insérer devant chaque cellule
ChiffreAInserer=range("A1").value

'pour chaque cellule de la zone
For each LaCellule in columns("C:C") 'ou in range ("C1:C5000") par exemple

'si le début du texte n'est pas égal au chiffre à insérer
if val(left(LaCellule.text,len(ChiffreAInserer))<>ChiffreAInserer then

'alors on ajoute le chiffre devant et un espace
LaCellule.value=ChiffreAInserer & " " & LaCellule.text

endif

'cellule suivante
next LaCellule

End Sub


Voilà, j'espère que cela t'aideras !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)

 

[jp]

salut a vous deux


merci pour votre prompt reponse

cela fonctionne pour les deux

encore mille merci

jp