[E-03] Suppression globale de données

**jawed** · 20/03/2009, 15h41

Bonjour le forum
j'ai une feuille excel nomé 37A ou il y a dix Tableaux cote a cote ces dernier ont:
1-le meme en tete N°/TLP/TTC/MODE/DDT/TTC+DT/HT/TVA
2-le meme nombre de lignes qui est de 35 "en tete non comprise"
3-Toutes les cellules de la feuille 37A sont protegé contre des ecritures ou des supressions "question securité" sauf les 35 lignes des colones TLP et TTC
4-troix abreviations de mode de payement N,C et D (Numeraire,Cheque,Carte de credit) et cela dans collone MODE
mes questions si c'est possible:
1-est il possible d'avoir un code qui suprime automatiquement tous les données inscrite manuellement dans les collones TLP et TTC
2-Remplacer tous les C et D par un N des collones MODE aubligatoir en majuscul
Nb: ce n'est obligatoir de remplir les dix tableaux chaque journée
Merci et a bientot
Cordialement a vous tous

**casefayere** · 20/03/2009, 16h35

Bonjour,

1-est il possible d'avoir un code qui suprime automatiquement tous les données inscrite manuellement dans les collones TLP et TTC

ex :
si TLP EN COL B et TTC en col C :, ta première cellule en ligne 2

Code :

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

sheets("ta feuil").range("b2:c" & derligne).clearcontents

2-Remplacer tous les C et D par un N des colonnes MODE obligatoire en majuscul

au moment de la frappe ou pour mise à jour ?

a +

**Gorfael** · 20/03/2009, 17h24

Salut jawed et le forum

3-Toutes les cellules de la feuille 37A sont protegé contre des ecritures ou des supressions "question securité" sauf les 35 lignes des colones TLP et TTC
4-troix abreviations de mode de payement N,C et D et cela dans collone MODE

1-est il possible d'avoir un code qui suprime automatiquement tous les données inscrite manuellement dans les collones TLP et TTC Non, mais toutes les données oui. On peut aussi ne pas effacer les cellules contenant une formule.

2-Remplacer tous les C et D par un N des collones MODE aubligatoir en majuscul La cellule est protégée, ou non ? si le choix dépend d'une liste de validation, mettre la liste en majuscule manuellement
A+

**jawed** · 20/03/2009, 19h35

Salut casefayere et Gorfael et le forum
merci pour vos reponses
casefayere ton code trait-il une table seulement ou plusieur car moi dans ma feuille j'ai dix tables cote a cote
Gorfael c'est vrais j'ai oublier de dire que les collones mode est elle aussi non protegé
demain je vais envoyer de mon travail une copie de mon fichier
A bientot
Cordialement

**casefayere** · 20/03/2009, 19h40

re,
Mon code peut traiter tes dix tables si tu inclues une boucle for et travalles avec cells plutot que range.

il faut simplement savoir où se trouvent les titres TLP et TTC POUR CHAQUE TABLEAU

**jawed** · 20/03/2009, 20h58

Salut tous le monde
casefayere excuse mon ignorence mais je suis un neophite en matiere de VBA c'est pour cela que je t'ai posé cette question
Cordialement

**casefayere** · 20/03/2009, 21h42

Ne t'excuses pas, je suis un peu comme toi, c'est justement pour ça que j'interviens en espérant apporter quelque chose,

AS-tu compris mon dernier message ?

Peux-tu mettre ma proposition en oeuvre ?

Mais il y a certainement mieux, l'avantage c'est que quelqu'un de plus affuté que nous amenera peut-être ses conseils,

Bonne soirée

**jawed** · 21/03/2009, 21h16

Salut tous le monde
Merci casefayere pour tes réponses mais je ne peut pas mettre ta proposition en oeuvre car je ne sais pas crée de boucle
Comme le l'ai dit en haut je joint une copie de mon fichier vierge mes tableaux sont dans la feuille fixe aussi je me suis trompé sur le non des entête
En espérant être claire
A bientôt
Cordialement

**casefayere** · 22/03/2009, 11h34

Bonjour,
je viens de regarder ta feuille :

les tableau ne sont pas toujours sur la meme ligne, ex tab1 demarre sur ligne 8, tab 2 sur ligne 6, tab 6 ligne 8, veux-tu garder cette disposition ou aligner les tableaux ? le code dépend de cette condition.

a +

**Pierre Fauconnier** · 22/03/2009, 11h45

Bonjour

Pour supprimer les cellules avec saisie manuelle, on peut considérer que les cellules à traiter sont des cellules sans formule

Code :

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

1
2
3
4
5
6
7
Sub SupprimerCellulesManuelles(Plage As Range)
    Dim Cellule As Range
 
    For Each Cellule In Plage
        If Not Cellule.HasFormula Then Cellule.ClearContents
    Next Cellule
End Sub

**jawed** · 22/03/2009, 13h06

Salut casefayere,ouisansdoute et Pierre Fauconnier et le forum
avant tout je vous remerci pour vos efforts
1-casefayere pour l'etat de mes tableaux ce n'est pas grave pour moi de les remettre en meme ligne
2-ouisansdoute je ne peut pas calculé le Montant TTC car le client quand il se presente a la caisse il nous paye le TTC et a nous de calculer le DDT (Droit De Timbre) la TVA et le HT
3-Pierre Fauconnier c'est une bonne idée de suprimer tous les données qui n'ont pas de formule mais parfoix un client nous ramene deux ou plusieur factures alors je mets dans la cellule une somme des facture

Code :

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

=TTC fact1+TTC fact2+...

A bientôt
Cordialement

**ouisansdoute** · 22/03/2009, 11h42

Bonjour,

Quelque chose m'échappe peut-être.
Pour effacer toutes les cellules des colonnes TLC et Montant TTC :

Code :

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

1
2
3
 
Range("B9,B9:C43,J7:K41,R7:S41,Z7:AA41,AH8:AI42,AP8:AQ42,AX8:AY42," & _
"BF8:BG42 , BN9: BO43 , BV8: BW42 ").ClearContents

( n'est-il pas possible de calculer automatiquement la colonne TTC ? Cela permettrait de n'effacer que la colonne TLC.)

Pour la colonne CODE, comme le dit Gorfael, une liste de validation en majuscule serait indiquée. Pour remettre toutes les cellules de cette colonne à N, on peut adapter la formule ci-dessus.

Code :

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

RANGE(plage1,plage2,...plageN).value = "N"

le plus simple est de faire la manipulation en enregistrement automatique pour créer la macro qui va bien.

**casefayere** · 22/03/2009, 15h41

re,
j'ai imaginé que tous tes calculs commencent en ligne 7 et mis la prcédure sur un bouton de commande

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 75 Step 8
With Sheets("FIXE")
.Range(.Cells(7, i), .Cells(41, i + 1)).ClearContents
End With
Next i
End Sub

dans ce cas, la premiere cellule à traiter sera toujours "B7" et la dernière "BW41"

**jawed** · 22/03/2009, 20h29

Salut casefayere et le forum
vraiment c'est parfait

ça me donne plus de courage pour plonger dans la VBA
casefayere ton code repond qu'a la première question pour la deuxième j'ai une idée si c'est faisable en VBA c'est dans le même code il supprime tous les données de la colonne MODE ensuite il remplace tous ces vide par N mais s'il y a plus simple je suis preneur
A bientôt et encor merci
Cordialement

**casefayere** · 22/03/2009, 20h44

Salut jawed,

En reprenant mon code tu ajoutes une ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 75 Step 8
With Sheets("FIXE")
.Range(.Cells(7, i), .Cells(41, i + 1)).ClearContents
.Range(.Cells(4, i) = Ucase(.Range(.Cells(4, i))'ligne ajoutée pour mise à jour
 
End With
Next i
End Sub

**jawed** · 22/03/2009, 21h21

Salut casefayere
j'ai recopié ton code et lorsque je l'execute il m'affiche Erreur ede compilation-Erreur de syntaxe
A bientot et merci
je crois que le tag RESOLU est proche n'est ce pas
Cordialement

**casefayere** · 22/03/2009, 21h35

Sur quelle ligne le débogueur s'arrete t'il (ligne en jaune dans ton code)

J'ai dit une bétise, recopies ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim i As Integer
With Sheets("FIXE")
For i = 2 To 75 Step 8
.Range(.Cells(7, i), .Cells(41, i + 1)).ClearContents
for j = 7 to 41
.Range(.Cells(j, i+2) = Ucase(.Range(.Cells(j, i+2))'ligne ajoutée pour mise à jour
next j
Next i
End With
End Sub

j'ai pas vérifié mais ça doit être ça

J'ai encore corrigé mais la procédure dure trop longtemps, je donne en attendant mais je vais revoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
With Sheets("FIXE")
For j = 7 To 43
For i = 2 To 75 Step 8
.Range(.Cells(7, i), .Cells(41, i + 1)).ClearContents
.Cells(j, i + 2) = UCase(.Cells(j, i + 2))
Next i
Next j
End With
End Sub

**jawed** · 22/03/2009, 22h08

Bonsoir casefayere et le forum
toujours le meme message
il m'affiche en rouge cette ligne

Code :

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

.Range(.Cells(j, i+2) = Ucase(.Range(.Cells(j, i+2))'ligne ajoutée pour mise à jour

et il m'affiche en jaune cette ligne

Code :

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

Private Sub CommandButton1_Click()

a bientot
cordialement

**casefayere** · 22/03/2009, 22h13

le bon code, c'est celui-la :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
With Sheets("FIXE")
For i = 2 To 75 Step 8
.Range(.Cells(7, i), .Cells(41, i + 1)).ClearContents
.Range(.Cells(7, i + 2), .Cells(41, i + 2)) = "N"
Next i
 
End With
End Sub

j'ai mis commandbutton1 parce que j'imagine que tu lance ta procédure à partir d'un bouton sur la feuille qui aurait ce nom