Je recherche une macro VBA Excel

Macro Qui permet de compter le nombre de cellule pleine sur une ligne.

Merci de votre aide

Ben non.

On peut s'entre-aider entre porgrammeurs, mais certainement pas répondre à de telles demandes. Si tu veux un truc tout fait, adresse-toi à un professionnel.

Ecoute ça fait 2 jours que je suis sur cette macro, mais apparement tu parles comme un professionnel.Alors aide moi premier de la classe?

Moi de mon coté j'ai fait quelques chose ça ne marche pas maintenant si ta pas les compétence pour m'aider, n'essai pas de te justifier en étant désagréable. J'aurais préféré que tu me tend la mains plutôt mais c pas ta mentalité.

Salut

Donc tu as quelque chose. Publie-le qu'on le partage, avec ses erreurs ou pas.

Sur PPC je suis bénévole.

Je l'ai été

J'ai plus de 1400 messages d'aide désintéressée sur ce forum. Alors pour la mentalité tu repasseras. Mes quelques compétences, je les mets à disposition, si ce n'est pas assez, il y a d'autres forumeurs.

Tu me trouves désagréable ? J'ai aussi la charge de (co-)modérer cette catégorie et je dois à ce titre rembarrer les exigeants dans ton genre. Les règles du forum sont claires et accessibles. Tu ne les respectes pas. Tu es le premier à être désagréable. Ne t'attends donc pas à une autre réaction de la part d'un modérateur. Note tout de même que ton topik n'est pas fermé. Libre à toi de t'obstiner dans l'irrespect et/ou la controverse. Libre à toi de publier ton bout de code et à en accepter la critique (objective) pour avoir au bout de quelques heures ce que tu cherches depuis 2 jours. Libre aux forumeurs de te répondre ou de te bouder.

Franchement, je suis désolé(excuse) mais je suis en stage et je n'ai pas réussi à résoudre ce problème. Et j'ai la pression derrière.
Quand au problème : je dois j'ai une cellule composé de plusieurs chiffre , je sois compter le nombre de numéro qu'il y a dans la cellule
et générer autant de ligne.
Exemple(cellule contient : 137
138
139

je dois générer 3 ligne contenant chaque numéros et effacer la cellule

Voila ce que j'ai fais c pas super, mais je suis débutant :

Sub Zone2()

'Détermine le nombre de ligne du tableau

fin = ActiveSheet.UsedRange.Rows.count

For I = 2 To fin
Cells(I, 5).Select

Selection.TextToColumns Destination:=Cells(I, 12), DataType:=xlFixedWidth _
, FieldInfo:=Array(Array(0, 1))
Next

End Sub

J'ai enregistré la fonction convertir.


Ps: désolé por les propos pas très sympas

Ben ok. Mais comme modo, je dois encore te faire remarquer que tu ne respectes pas les règles (c'est pas toujours drôle modo )
Lorsque tu publies un bout de code; merci de mettre la balise [CODE] juste avant et la balise [/ CODE] juste après (sans l'espace).

Plusieurs raisons à ça :
- Ce sont les règles
- C'est plus joli
- C'est montrer du respect envers les gens qui te liront et peut-être qui te répondront.
- Autre....

Choisis une de ces raisons, clique sur la gomme et modifie ton post. Tu peux alors utiliser le bouton ou écrire directement [CODE]. ([CPP] fait la même chose)

------------------------------------------------------------------------------------------------------------

Alors hop, on repasse en mode forumeur.

TextToColumns est la bonne fonction.
En fait, ce qu'il te manque, c'est de savoir que le séparateur entre tes nombres est le caractère LineFeed. Son code est 10 (0Ah).
(Fallait le savoir )
Donc revois l'aide concernant la fonction TextToColumns. Tu trouveras ton bonheur en regardant du côté de Other:=True et de OtherChar:=Chr(10)

Tiens encore un truc : Ne pas écrire

Mais directement

Tu évites à Excel des tas d'actions gourmandes

Je te remercie, je vais essayé de faire qqchose avec ça. Et je te le montrerais.

PS: T sympas