Aide pour macro

[malabarbe]

Bonjour,

Pouvez vous m'aider a réaliser une macro qui ferai :

Col B Col C
1 123 texte
2 124 texte
3 125 texte

Je voudrais pour une ligne donnée que si la col C contient
du texte que la valeur de la ligne Col B soit copiée de la
ligne précédente + 1

J'epère avoir été clair

Merci d'avance

 

[Cousinhub]

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

 

[malabarbe]

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

 

[malabarbe]

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

 

[jeanpierre]

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

 

[malabarbe]

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

 

[jeanpierre]

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😱

 

[jeanpierre]

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...

 

[malabarbe]

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 ?

 

[jeanpierre]

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...

 

[jeanpierre]

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

 

[malabarbe]

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