Recherche:

C'est quand même bien comique de dire ça alors que tout ça est bien évidemment un gros coup de pub destiné aux têtes blondes...

Perso, je met toujours mon code dans des modules, j'aime pas trop utiliser ThisWorkbook, mais je pense que les 2 doivent marcher.

Pour la différnece entre windows et workbooks, je pense que...

Bah normalement ça le fait déjà (grâce au for each feuille in worksheets).

Ok, par contre le temps d'execution va augmenter en fleche.


Dim tableau As Range
Dim i As Integer
Dim maCellule As String
Dim trouve As Boolean

Set tableau = Range(Cells(8, 3), Cells(43,...

Normalement cette erreur se produit quand tu essaye de déproteger des cellules alors que la feuille est protéger, mais ici ça pas l'air d'être le cas.

Normalement t'as juste a selectionner la plage qui est a .locked=false et la passe a .locked=true.

Oui, sinon tu peux faire référence à la feuille par son "numéro". Ex:


sheets(2)...

Essaye de rajouter la ligne:


cell.interior.color=RGB(255,255,0)

Entre ces 2 lignes:


If cell.Text = maCellule Then

Il faut que tu déprotége ta feuille avant de la reprotéger:


Sheets("Feuil3").Unprotect "test"
Columns("B:D").Locked = False
Sheets("Feuil3").Protect "test"


Ici "test" correspond au mot de...

Je suppose que tu t'es trompé et que ce sont les lignes 3,5,6 et 7 que tu veux envoyer a ZZZZZZ.

Du coup la structure ressemblerais à quelque chose comme ça:


Dim adresse As Collection
Dim i...

Chacun de tes boutons doit appeler une procédure différente du coup t'as juste à faire:


sug general()

call procedure1
call procedure2
...
call procedure5

Ok, c'est bien ce que j'ai fait dans le bout de code précédent.

Tu as trouvé une solution ? Parce que c'est fort possible que mon problème vienne de là, j'utilise jamais les filtres auto d'habitude.

La manière dont tu défini ton tableau est bizarre: tu as un tableau qui va de C8 a S43 ou ton "tableau" est en fait 2 colonnes, une de C8 a C43 et une de S8 a S43 ?

Je vais partir de la 1ère...

Essaye de décharger tout tes objets en memoire avec:


set MonObjet = Nothing

Mais bon je t'avoue que je fais face à ce problème également en ce moment alors qu'il me semble avoir oublié aucun...

Normalement :


Application.Goto reference:="Somme_Totale" ''' cellule nommée qui doit contenir la somme

ActiveCell.Value = "='Prix de vente'!" & Cells(countTask , 14).Address(0,0)

Le problème vient du fait que tu effectue ton filtre sur la seelction en cours, mais que tu selectionne pas auparavant la plage.

Il faut que tu rajoute une ligne de ce genre au début de chaque...

A la fin du programme executé par ton bouton:


Sheets("feuille2").Cells(x1, y1) = "=feuille1!" & Cells(x2, y2).Address


x2 et y2 correspondent aux coordonnées de la cellule source, x1 et y1 a...

Ok, bon bah tu va dans l'éditeur de ton userForm, tu doubleclic sur ton bouton "Valider".

Ca va te créer un programme genre "sub BtnValider_Click". Dans le corps de ce programme tu copie/colle le...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("A29:B100")) Is Nothing Then
Cancel = True
Target.Font.Name = "arial"
...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("A29:B100")) Is Nothing Then
Cancel = True
Target.Font.Name = "arial"
...

J'ai pas compris ton problème dans son intégrité. Mais déjà:


Range("D2").Select
Selection.Copy
Sheets("tressage prod").Select
ActiveSheet.Range("$C$6:$I$12").AutoFilter Field:=4,...

Ok, j'avais mal compris ton problème:


Private Sub TxtBox_Change() 'TxtBox doit être remplacé par le nom que tu as donné a ta TextBox

dim numlot as long
dim i as integer
...

Sub test()

Dim i As Integer

Dim premligneSG As Long
Dim dernligneSG As Long

Dim dernligne As Long

Ok, bah du coup il faut que tu change le nom des feuilles (CST_SHEET_1, ...) dans cette procédure, je pense.

La manière dont tu fais appel à cette procédure me parait pas bonne non plus. Il faut...