2 soucis dans mes macros

Bonjour j'ai 2 petits probleme dont un je pense assez simple.

Alors le premier :
Quand je fait

Code:

---

1 2 3

For x = 1 To 4 Range("A" & x) = "" Next x

---

Il va me faire A1,A2...
Je voudrais savoir comment aller dans l'autre sens : A1, B1, C1....

Merci

Mon autre souci:
Je travail avec des formules d'engrais , je veux qu'il y est un espace entre mon produit ( ex : 12.10.20) et le p ( pour designer que c'est des palettes )
Donc 12.10.20 p
C'est pour eviter les fautes de frappe.
Vu que je travail avec bcp de formule je peux pas faire

Code:

---

1 2 3

Il range("A1") = "12.10.20p" then range("A1") = "12.10.20 p" End if

---

La recherche dans toutes mes cellules marche mais je sais pas comment faire pour mettre l'espace pour tous mes produits
J'ai pensé à calculer les caracteres mais apres je bloque :

Code:

---

1 2	if Len(Range("D" & x)) = 9 then '...

---

Comment lui dire de séparer le produit et le p par un espace

Merci bcp d'avance pour votre aide.

bonjour
pour le 1 er c'est :
a la place de

Code:

---

1 2 3

For x = 1 To 4 Range("A" & x) = "" Next x

---

tu met

Code:

---

1 2 3 4

For x = 1 To 4 cells(1,x)="" Next x

---

ca boucle sur les colonne et nonplus lesligne maintenant si tu dois faire la meme chose mais sur plusieur lignes et plusieurs colonnes

alors dans ce cas c'est:

Code:

---

1 2 3 4 5 6

For x = 1 To 4'boucle sur 4 colonnes for z=1 to 20'boucle sur 20 lignes   cells(z,x) = "" next z Next x

---

alors pour le eme souci c'est ;
a la place de ca

Code:

---

1 2 3

Il range("A1") = "12.10.20p" then range("A1") = "12.10.20 p" end if

---

tu met

Code:

---

replace(range("a1"),"p"," p")

---

voila

au plaisir

Merci pour ta reponse
La premiere partie marche impecable
Par contre quand je fais des test avec

Code:

---

1 2	replace(range("a1"),"p"," p")

---

Dans vba il me met ( Attendu = )
Je bloque, j'ai essayé plusieurs chose depuis ce matin car tu ma mi sur la piste avec la fonction replace mais j'arrive à rien
Désoler :D

Encore merci pour ta futur aide ^^

c'est parceque tu dois faire dans le cas de la cellule A1

Code:

---

Range("a1") = Replace(Range("a1"), "p", " p")

---

maintenant dans le cas d'une boucle sur plusieurs colonne ceci marche aussi

Code:

---

Cells(1, 1) = Replace(Cells(1, 1), "p", " p")

---

A toi donc d'adapter en mettant des variables si tu réalise des boucles

MERCI bcp !
Tous marche ^^
encore merci aux utilisateurs du forum vous m'avez bien dépanné
:ccool:

a la bonne heure!!!!:yaisse3::bug: