Discussion :

[pachi44]

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

Alors le premier :
Quand je fait

Code :

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

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 :

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

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 :

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

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.

[patricktoulon]

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

Code :

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

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

tu met

Code :

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

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 :

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

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 :

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

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

tu met

Code :

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

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

voila

au plaisir

[pachi44]

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

Code :

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

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

Encore merci pour ta futur aide ^^

[amnorian]

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

Code :

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

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

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

Code :

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

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

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

[pachi44]

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

[patricktoulon]

a la bonne heure!!!!