Aide pour macro

Cousinhub

XLDnaute Barbatruc

• 6 Août 2007

• #2

Re : Aide pour macro

Bonsoir, un début de réponse :
Pour remplir ton tableau : (en supposant qu'il n'y ait rien dans la colonne B)

Sub essai()
For Each c In Range("C2:C" & [b65000].End(xlUp).Row)
If Application.IsText(c) = True Then
i = [B65000].End(xlUp).Value
If Not IsNumeric(i) Then i = 0
c.Offset(0, -1) = i + 1
End If
Next c
End Sub

Bonne soirée

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 7 Août 2007

• #3

Re : Aide pour macro

Bonsoir,

Merci d'avoir répondu mais cela ne tourne pas !

Voici le code que j'avais fait mais qui ne tourne pas non plus

For I = 3 To 20
Cells(I, 2).Select
ActiveCell.FormulaLocal = "=SOMME(B(I)+I)"
Next I

Merci de regarder

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 7 Août 2007

• #4

Re : Aide pour macro

Petite précison sur votre macro

- Quand la Col C est vide, il ne ce passe rien
- Quand dans la Col C il y a des chiffres, il ne ce passe rien
- Quand dans la Col C il y a du texte, cela bug

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Août 2007

• #5

Re : Aide pour macro

Bonsoir malabarbe, bhbh, re le forum ou bonjour le forum, selon,

Je suis ton truc depuis près de deux heures et je ne comprends rien...

Déjà, si Texte = + 1... tout est texte, donc tous = plus 1...

Je pense, désormais, qu'un petit exemple pourrait être nécessaire... non.

A demain...

Jean-Pierre

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 7 Août 2007

• #6

Re : Aide pour macro

Merci d'avoir regardé,

J'ai mis une pièce jointe

Je vais essayer d'être encore plus clair
Quand la Cell C3 est renseignée avec le nom d'un cheval
je voudrais mettre en B3 la somme de B2+1

Quand la Cell C4 est renseignée avec le nom d'un cheval
je voudrais mettre en B4 la somme de B3+1

Et ainsi de suite avec arret de la macro dès que l'on
tombe su une Cell vide Col C

J'espère vous inspirer

 

Dernière édition: 7 Août 2007

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Août 2007

• #7

Re : Aide pour macro

Re,

Déjà, mais c'est une affaire perso...ZIP, ZIP, c'est simple et prévu depuis longtemps par Crosoft.... CLIC DROIT - ENVOYER VERS - DOSSIER COMPRESSE....,

1) je n'aime pas les Xls qui alourdissent le poids sur le central de XLD.

2) Les Xls s'ouvrent, chez moi, sous IE, donc impraticables....

et 3 ) ici, c'est une photo ou je ne sais quoi... et même avec toutes les explications de la terre...

B2 + 1 reste , de toute façon égale à B2 + 1 avec ou sans macro,
mais B2 + 1, plus 1 quoi et par rapport à quoi, sur la photo et sur l'explication.

On peut, tout de même dire et en formule sous Excel, =B2+1 et étirer vers le bas...



Je vais me coucher là, le meilleur que j'ai à faire, même si j'ai du mal à dormir😱

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Août 2007

• #8

Re : Aide pour macro

Re,

Pas d'humeur et pas d'humour ce soir,

Tu peux tout de même economiser 42 Ko au serveur du forum en rééditant ton post et en supprimant ton fichier vraiment inutile...

Ensuite, tu nous en dépose un autre... en Excel, un peu plus explicite....

On va finir par s'entendre....😀 , c'est le but...

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 7 Août 2007

• #9

Re : Aide pour macro

Désolé pour le XLS, mais l'ajout de pièces jointes
le proposait !!!

Je vais modifier mon post et revoir cela demain

Bonne nuit

Je n'arrive pas a oter la pièce jointe ?

 

Dernière édition: 7 Août 2007

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Août 2007

• #10

Re : Aide pour macro

Re,

Le Xls, oui, Mais pas tant...

Tu réédites ton post, tu peux supprimer le fichier joint tout à l'heure.... Très simple...

En Xls ou Zip, Bah après tout, je ne suis pas seul....

exact, le site le propose, mais moi je t'expliquais la problèmatique des utilisateurs de IE, mais cela tu ne pouvais le savoir....😉

Mais un fichier Excel explicite... un vrai sur lequel on peut bosser...

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Août 2007

• #11

Re : Aide pour macro

Re,

Tu réédites ton post (celui du dépot de la pièce), et tu vas en Mode avancé, et là tu peux retirer ta pièce jointe...

Je viens de le faire (10 secondes)....

Bonne nuit et à te lire demain.

Jean-Pierre

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 7 Août 2007

• #12

Re : Aide pour macro

Autant pour moi

La fatigue ?

Post modifié

Voici un code qui tourne, mais si on peut l'optimiser

For I = 3 To 200
Cells(I, 2).Select
If Cells(I, 1) = 0 Then Exit Sub
ActiveCell.FormulaLocal = (Cells(I, 1) / 10000) + Val(Cells(I - 1, 2))
Next I

A demain

 

Dernière édition: 7 Août 2007

Vote positif 0 Vote négatif