XL 2010 Fonction resize

[chris66000]

Bonjour
j'utilise resize....
ActiveCell.Resize(1, 1).Select

mais je voudrais remplacer le 1 de colonne par la valeur d'une cellule qui varie a chaque fois..
je n'ai pas trouvé si quelqu'un a une idéee...je suis preneur
Merci

 

[chris66000]

ci joint le tableau

 

[vgendron]

Hello
effectivement, si tu effaces les clients, il faut supprimer la ligne
il vaux mieux éviter les lignes vides dans les tableaux structurés
j'en ai profité pour corriger un bug lorsque il n'y a pas de client

 

[vgendron]

Hello
à faire de toute urgence: supprimer ton dernier fichier car il contient des données personnelles de clients
il ne faut que des données bidons

sinon.. sur le problème que tu décris..
je vérifie, mais apparemment les formules ont été effacées..
je regarde si c'est à cause du code, sauf si tu me dis que tu les as effacées par erreur

 

[chris66000]

Hello
à faire de toute urgence: supprimer ton dernier fichier car il contient des données personnelles de clients
il ne faut que des données bidons

sinon.. sur le problème que tu décris..
je vérifie, mais apparemment les formules ont été effacées..
je regarde si c'est à cause du code, sauf si tu me dis que tu les as effacées par erreur

Bonjour,
fichier supprimé....
je ne pense pas avoir effacé de formules....

 

[vgendron]

Hello

en PJ, une version "Vierge" dans laquelle j'ai ajouté un bouton "Réinitialiser fichier" qui permet de vider totalement les locations ET remettre toutes les formules necessaires

 

[chris66000]

ok , je refais les essais merci

 

[chris66000]

Hello

en PJ, une version "Vierge" dans laquelle j'ai ajouté un bouton "Réinitialiser fichier" qui permet de vider totalement les locations ET remettre toutes les formules necessaires

Bonsoir,
Ça bloque dès que j'appuie sur saisie formulaire...... with non defini

 

[vgendron]

Correction ici

 

[chris66000]

Correction ici

Bonjour,
Tout fonctionne correctement apparemment ! merci
juste quand j'essaye la remise a zéro cela bug ici

With .ListObjects("Tab_Loc_Linge")
.Range.Item(1, 3).Resize(.ListRows.Count, .ListColumns.Count - 2).ClearContents
.Range.Item(1, 3).Formula = FormuleLingeHebdo
.Range.Item(1, 3).AutoFill Destination:=.Range.Item(1, 3).Resize(1, .ListColumns.Count - 2)
.Range.Item(1, 3).Resize(1, .ListColumns.Count - 2).Copy

For i = 6 To .ListRows.Count Step 5
If .Range.Item(i, 1) <> "TOTAL" Then
.Range.Item(i, 3).Select
ActiveSheet.Paste
Else
' BLOCAGE ICI
.Range.Item(i, 3).Formula = FormuleLingeTotal
.Range.Item(i, 3).AutoFill Destination:=.Range.Item(i, 3).Resize(1, .ListColumns.Count - 2)
si tu as deux minutes merci
End If
Next i
End With

 

[vgendron]

Hello

je ne comprend pas pourquoi ca plante chez toi, je viens de reessayer plusieurs fois de suite, pas de bug
as tu changé quelque chose dans la structure de la feuille Location? ajouté ou supprimé des lignes ou colonnes

 

[chris66000]

Bonjour,
Pour ne pas te déranger en permanence...je cherche pourquoi cela bug chez moi...

With .ListObjects("Tab_Loc_Linge")
.Range.Item(1, 3).Resize(.ListRows.Count, .ListColumns.Count - 2).ClearContents
.Range.Item(1, 3).Formula = FormuleLingeHebdo
.Range.Item(1, 3).AutoFill Destination:=.Range.Item(1, 3).Resize(1, .ListColumns.Count - 2)
.Range.Item(1, 3).Resize(1, .ListColumns.Count - 2).Copy

For i = 6 To .ListRows.Count Step 5 ' 6 est il le nbre de fois que l'on doit recommencer cad le nbre d'appart ?
If .Range.Item(i, 1) <> "TOTAL" Then
.Range.Item(i, 3).Select
ActiveSheet.Paste
Else
.Range.Item(i, 3).Formula = FormuleLingeTotal
.Range.Item(i, 3).AutoFill Destination:=.Range.Item(i, 3).Resize(1, .ListColumns.Count - 2)
End If

Désolé de te déranger encore

 

[vgendron]

Hello
pour expliquer la facon de se déplacer dans une table structurée
la table Structurée "Tab_Loc_Linge" commence en ligne 52 juqu'à la ligne 106

pour mettre une formule ou autre chose sur la 1ere ligne, on pourrait accéder à la ligne en disant "Range("A52")

sauf que. si tu débplaces la table en ajoutant des lignes par exemples.. et bien, range("A52") restera A52, et l'info sera bien mise, mais plus dans la table structurée

donc. pour éviter ca, on fait référence à la première ligne de la table avec .range.item(1,1)

ainsi.. si tu déplaces la table, et bien item(1,1) sera toujours la première cellule en haut à gauche de la table

ensuite;. dans la macro qui semble te poser des bugs: regarde la PJ, j'y ai ajouté des commentaires sur la macro "ResetAll"

 

[chris66000]

Bonjour,
je lis tes explications ...merci j'avance dans la compréhension !
J'ai executé la macro en mode pas à pas pour comprendre...tout fonctionne jusque

table linge hebdo..
1 2 3 ...9 impeccable et la ca bloque
.Range.Item(i, 3).Formula = FormuleLingeTotal 'on place une autre formule
.Range.Item(i, 3).AutoFill Destination:=.Range.Item(i, 3).Resize(1, .ListColumns.Count - 2) 'on tire vers la droite
désolé

 

[vgendron]

Hello

renvoie moi ton fichier sur lequel il y a un pb;. parce que la;. je ne comprend pas car chez moi, je n'ai aucun bug d'execution

 

[chris66000]

Hello

renvoie moi ton fichier sur lequel il y a un pb;. parce que la;. je ne comprend pas car chez moi, je n'ai aucun bug d'execution

Hello

renvoie moi ton fichier sur lequel il y a un pb;. parce que la;. je ne comprend pas car chez moi, je n'ai aucun bug d'execution

Bonjour, c'est le dernier .. fichier que tu m'as envoyé vendredi....