Excel 2003 - Garder des informations précises

Bonjour gbinforme,

Je te remercie pour ton aide, je n'aurai jamais pensé comparer la bureautique et le jardinage mais bon, c'est vrai que certaines règles de base se retrouvent un peu partout.

Bonjour eriiic,

La ligne "Articles en stocks: ..." est toujours notée de la même façon par contre elle peut être à la ligne 16, 18, 20... Cependant, de la line "Articles en stocks: …" à la ligne "… pour 100 articles" le nombre de ligne et les données sont constantes (une ligne d'information, une ligne vide…). Ensuite, il y a encore d'autres lignes qui ne sont pas nécessaires pour ce que je veux réaliser non plus.

J'essaierai ta macro quand j'aurai plus de temps libre (là j'ai trois projets professionnels à rendre pour mercredi matin). Au fait, si j'ai bien compris ta macro, car je n'y connais pas vraiment en programmation, elle va rechercher la ligne "Articles total en stocks" et conserver uniquement les nombres de cette ligne à la ligne 65536.

Pour les lignes qui ne sont pas nécessaires en dessous, ce n'est pas grave, je crois qu'elles sont toujours identiques, donc après la manipulation je sélectionnerai ces lignes sur toutes les feuilles (en mode groupe de travail) et je les effacerai.

Dans un autre classeur, j'ai aussi des lignes avec du texte et des nombres, mais là il n'y aura pas de lignes à supprimer, je veux juste garder les nombres, je peux utiliser une partie de ta macro pour réaliser cela ou y a-t-il une fonction plus simple?

Si j'ai bien compris ta macro voilà le résultat pour garder uniquement le premier nombre des lignes.

LookIn:=xlValues).Row
On Error GoTo 0
Range("A1:A" & i - 1).EntireRow.Delete
[2:3].EntireRow.Delete
'recup 1er nombre
For i = 1 To [A65536].End(xlUp).Row
For j = 1 To Len(Cells(i, 1))
If Mid(Cells(i, 1), j, 1) >= "0" And Mid(Cells(i, 1), j, 1) <= "9" Then
k = InStr(j + 1, Cells(i, 1), " ")
If k = 0 Then k = Len(Cells(i, 1)) + 1
Cells(i, 1) = Mid(Cells(i, 1), j, k - j)
Exit For
End If
Next j
Next i
suivant:
Next w
End Sub

Encore trois petites questions (je sais, je suis un emmerdeur (rire)).

Dans le cas où il y aurait deux nombres à conserver cela serait-il possible?

Parfois dans les noms, il y a du texte et des chiffres (exemple: MDD-13…), cela va-t-il poser des problèmes pour conserver les nombres (conflits) ou alors fera-t-il la part des choses entre un nombre (36000, 60000) et du texte avec des chiffres (MDD-14, MDD-99…)?

Dans ta macro, j'ai vu qu'il y avait pleins d'espaces devant certaines lignes (sûrement pour une lecture plus facile), quand je la copie dans Excel 2003, je les laisse ou je les enlève?

Je vous remercie tous les deux ainsi que Raymond pour vos nombreux conseils et votre aide, j'espère un jour avoir le niveau nécessaire pour moi aussi pouvoir aider d'autres personnes.