Discussion :

[OneShiote]

Bonjour,

Je débute dans VBA après juste quelques jours de formation !

Voici le fichier que j'essaye de manipuler :
test copie.xlsm

J'essaye de faire en sorte que dans ma colonne B, si la valeur dans la cellule contient plus de 2 caractères, celle-ci est effacer (sans déplacement des valeurs qui reste, que chacun reste à sa place ! ^^ )
Et dans la colonne C, tout ce qui ne possède pas 10 caractères (chiffres et/ou lettres) soit effacer également.

Le tout doit me permettre ensuite de classer suivant la colonne A et B, les numéros de la colonne C (exemple à coté)...

Merci de votre aide !

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP

Peu de personnes peuvent telecharger des pieces jointes (securite notamment).

Aussi est-il plutot recommande de donner des exemples concrets dans le corps de tes messages

Concernant le probleme en question, tu peux regarder avec

Code :

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

1
2
3
If Len(Range("B1").Value) >2 Then
    Range("B1").Clear
End If

[Invité]

bonjour OneShiote et Jean-Philippe,

Code :

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

1
2
3
4
5
6
7
8
Sub test()
[a1] = String(12, "t")
If ClearBC([a1], 2, 5) Then [a1].ClearContents
If ClearBC([a1], 1, 5) Then [a1].ClearContents
End Sub
Function ClearBC(r As Range, c As Integer, Nb As Integer) As Boolean
ClearBC = r.Column = c And Len(r.Text) > Nb 
End Function

[OneShiote]

Merci pour vos réponses si rapide !

@Jean Philippe, j'ai essayé d'adapter la condition mais rien ne se passe...
J'ai réadapter à la partie de code que j'ai sortie avec le bouquin qui m'aide à plus avoir mal à la tête !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Tri()
 
'---------------------------------------------------
'Pour la suppression des données inutiles
'---------------------------------------------------
 
Dim i As Integer
Dim b As Integer
Dim b_min As Integer
 
 
b = InputBox("Nbres Ss Ph ?")
b_min = 0
 
 
For i = [B1000].End(xlUp).Row To 1 Step -1 'Boucle ligne par ligne
 
        If Cells(i, 2) = "" Then Cells(i, 1).EntireRow.Delete 'Suppresion d'une ligne si la case est vide
        If Len(Range("B1").Value) > 2 Then
        Range("B1").Clear
    End If
 
Next i
End Sub

@dysorthographie, ton code ne fonctionne pas du tout...

[Invité]

c'est ballot il fonctionne chez moi!

[Jean-Philippe André]

Je penche pour un oubli

Code :

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

1
2
3
4
If Cells(i, 2) = "" Then Cells(i, 1).EntireRow.Delete 'Suppresion d'une ligne si la case est vide
        If Len(Range("B" & i).Value) > 2 Then
        Range("B" & i).Clear
    End If

[OneShiote]

Merci beaucoup ça marche parfaitement !
J'ai réadapté pour ma colonne C.

Je vais tenter de remettre en forme les données maintenant.

Merci pour votre aide.

[OneShiote]

Nouvelle inconnue ! ^^"

J'ai les données dans ce format (4 colonnes et environ 2000 lignes...) :
Les données en rouge sont dans une colonne, les données en verts dans une autre... et bien sûr des cellules vides sont à l'intérieur du tableau...

10 1 SRCOND
10 8243005930
10 2 SRCOMP
20 1 TOHN4A
20 800Z351300
20 800P275694
20 800Q165400
20 800W206200

Je veux les remettre en forme transposé mais en plus de ça, sous cette forme :
Il peut y avoir plusieurs fois l'opération 10 mais avec une sous phase différente a chaque fois. Copier le libellé associé à la sous phase et la liste des outillages l'un à la suite de l'autre suivant l'opération et la sous phase.

Opération 10 10 20
Sous Phase 1 2 1
Libellé
Outillages


Les couleurs sont juste pour la compréhension hein

Merci beaucoup !