VBA- Offset

[Bertrand]

Bonjour, 🙂

J'ai un problème avec mon fichier ci-joint
le code fonctionne parfaitement lorsque l'on remplace
le nombre de tests (feuille 1 cellule B2 ) par un nombre
supérieur par contre, si le nombre encodé est inférieur
à celui d'origine..celà ne marche plus.

Comment puis-je, à l'ouverture du fichier, créer
un code clear contents qui efface la valeur initiale de cette cellule?

Merci d'avance,


Bertrand
[file name=ExempleBertrand_V3.zip size=12141]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleBertrand_V3.zip[/file]

 

[moi]

bonjour,

pour sa il te faut creer une macro auto_open() qui te supprime le contenu de la cellule qu'il te faut

genre :
sub auto_open()
'nom de ta macro'
end sub


macro()
range('X').clearcontents
fin macro

 

[Abel]

Bonjour Beertrand,

Autant pour moi.

Il y a une erreur dans ma ligne 'ClearContents' d'hier.

Remplace la par :

Sheets(2).Range('a2:d' & Sheets(2).Range('a65536').End(xlUp).Row).ClearContents

ou :

Sheets('Feuil2').Range('a2:d' & Sheets('Feuil2').Range('a65536').End(xlUp).Row).ClearContents

Dans le premier cas on travaille sur la deuxième feuille de la collection des feuilles du classeur.
Dans le deuxième cas, on travaille sur la feuille nommée 'Feuil2'.

Pour faire le travail d'effacement à l'ouvertue du fichier procède comme suit :

Ouvre VBE (Alt+F11)
Va dans ThisWorkbook (double clic dessus)
En haut de la fenêtre de code, sélectionne Worbook et à droite Open (normalement il le fait par défaut dès que tu sélectionnes Workbook).
Ces deux lignes doivent apparaitre :

Private Sub Workbook_Open()

End Sub

Entre ces deux ligne, tape la ligne de code du début de ce message.

Et la bobinette cherrera.

En espérant que cela te dépanne.

Abel.

 

[Bertrand]

Merci Abel! 😉

maintenant çà marche sauf que l'en-tête des colonnes
disparait à chaque changement de valeur de la cellule B1.

Je continue à travailler dessus..je voudrais que les résultats
(encodés par la suite dans la colonne E) apparaissent automatiquement à l'intérieur d'un tableau croisé dynamique
et sur une nouvelle page.
Avec les différentes valeurs de la colonne C comme en têtes de colonnes..j'ai réussi celà manuellement mais par programmation
VBA..+dur, je m'y applique

Bertrand

 

[Abel]

Re,

Pour l'effacement de la ligne d'en-tête, vérifie que la zone à effacer commence bien à la deuxième ligne :
Sheets(2).Range('a2:d' & Sheets(2).Range('a65536').End(xlUp).Row).ClearContents

Pour le TCD (tableau croisé dynamique : l'informatique étant un truc de feignant, ici tout le monde appelle ces tableaux des TCD) il y a plein d'exemple sur le forum.
TCD construits depuis VBA ou non, c'est au choix. Pour ma part, je ne les maîtrise pas assez.
Cependant, précise quand même ce que tu recherches dans ton TCD.

Abel.