Modifications codes
1) Ce que je souhaiterais c'est une fois ma page imprimée, que les données des cellules (Z10 et H10) de la feuille2 "Base" s'éffacent
'Bouton imprimer la page active'
Sub DiminuerValeur()
Range("S27") = Range("S27") - 1
If Range("S27") < 0 Then Range("S27") = 0
Application.Dialogs(xlDialogPrint).Show
'TRANSFERT DE DONNÉES DE LA FEUILLE1 "BASE" A LA FEUILLE2 "NOMENCLATURE"'
' Activer la feuille Nomenclature
With ThisWorkbook.Sheets("Nomenclature")
' Trouver la prochaine ligne vide
nLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
' Y inscrire les données de la feuille base
.Range("A" & nLig).Value = Sheets("Base").Range("AH8").Value 'N° FICHE
.Range("C" & nLig).Value = Sheets("Base").Range("AK8").Value 'INDICE
.Range("E" & nLig).Value = Sheets("Base").Range("AI9").Value 'DATE CRÉATION
End With
ActiveSheet.Range("Z10,H10").ClearContents' (ERREUR!!!!!!!!!)
End Sub2) Ce que je souhaiterais ici est que lors de mon enregistrement (Avec bouton dans feuille2) Seul la feuille2 "Base" et la feuille5 "Nomenclature" de mon classeur soient enregistrées dans le dossier cible (01 Fiches à classer)
'Feuille2 (Base) bouton enregistrer'
Sub Enregistrer_Cliquer()
'Cellule H11 Nom de la feuille (Référence interne)'
f = Worksheets("Base").Cells(11, 8)
'Chemin dossier cible enregistrement (01 Fiches à classer)'
ChDir "Z:\01-QUALITE\CONTRÔLE & QUALITÉ\Documents de Contrôle\Fiches suivi de contrôle production\01 Fiches à classer\"
'Enregistrement dossier cible (01 Fiches à classer)/ Modification du nom de la feuille en fonction de la cellule H11 feuille (Base)'
ActiveWorkbook.SaveAs Filename:= _
"Z:\01-QUALITE\CONTRÔLE & QUALITÉ\Documents de Contrôle\Fiches suivi de contrôle production\01 Fiches à classer\Fiche suivi de contrôle article " & f & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End SubJe vous remercie d'ores et déjà et vous souhaite une excellente journée 😉
Edit : Pensez à utiliser les balises de code en cliquant sur l'icone </> dans la barre de menu.-
Bonjour,
ActiveSheet.Range("Z10:H10").ClearContents
le séparateur entre les 2 cellules est les 2 points :
************************************************************
pour le 2, 2 solutions:
-1)enregistrez uniquement les pages demandées
-2) enregistrez le classeur en entier, puis supprimez les feuilles non voulues.
Cdlt
Bonjour
1) Ce que je souhaiterais c'est une fois ma page imprimée, que les données des cellules (Z10 et H10) de la feuille2 "Base" s'éffacent
Je ne vois pas d'erreur si ce sont uniquement les deux cellules Z10 et H10 que vous voulez effacer.
Sheets("BASE").Range("Z10, H10").ClearContentsCrdlt
Bonjour Dan,
Bonjour
1) Ce que je souhaiterais c'est une fois ma page imprimée, que les données des cellules (Z10 et H10) de la feuille2 "Base" s'éffacent
Je ne vois pas d'erreur si ce sont uniquement les deux cellules Z10 et H10 que vous voulez effacer.
Sheets("BASE").Range("Z10, H10").ClearContentsCrdlt
Effectivement, pas d'erreur, j'ai zappé le ET.
Cdlt
Bonjour Arturo,
Oups je n'avais pas vu que vous aviez répondu...
Mais bon il a deux solutions... attendons voir donc
Crdlt
Bonjour Arturo, bonjour Dan.
En tout premier lieu, merci de vos réponses après avoir effectué les corrections que vous m'avez transmises, j'ai toujour cette même erreur qui revient. ceci-dit, la cellule fusionnées est Z10 à AC10 et H11 à M11 est-ce que le problème peut être généré par ça.
ceci-dit, la cellule fusionnées est Z10 à AC10 et H11 à M11 est-ce que le problème peut être généré par ça.
VBA aime pas les fusions....on l'a déjà dit souvent ....
ceci dit par rapport à votre demande, il ne s'agit que de vider la cellule H10 et Z10.
H11 ne doit pas être effacée
Donc essayez comme ceci
Sheets("BASE").Range("Z10:AC10, H10").ClearContentscrdlt