Résultats pour "raz tableau nomme"

5'870 résultats pour cette recherche

bonjour,

j'utilise excel 2016FR et j'aimerais créer une macro permettant d'effacer les X lignes d'un tableau à l'exception de l'entête et sans perdre les formules des cellules calculées et liste de choix

En gros faire une RAZ du tableau.

je vous remercie par avance de votre aide.

Bonjour à tous,

Je compte sur vous,

J'ai exxcel 2010 et je n'ai pas Power Query.

Je dois réaliser un tableau annuel reprenant 4 tableaux trimstrielles.

PlanningCirculations2019(hors TAC)_1erTrimestre.xlsm" est par exemple l'un de ces tableaux.

Dans chacun de ces tableaux, il y a une feuille nommé "BaseHoraires_Tableau_" et dedans cette feuille, un tableau nommé "Tableau_Production".

J'aimerai copier les 4 tableaux production, (afin de ne pas me prendre la tête avec tous les formats de données sur un autre classeur et un autre feuille qui serait ma table principale que je mettrai en jour en cliquant sur un simple bouton...

Le souci, c'est que je bloque, j'ai passé l'après midi à bloquer. mon responsable attend de moi ce tableau et à part moi même faire le copier/coller, je ne vois pas comment faire autrement.

Merci beaucoup à tout ceux qui regarderont.

Dim AW As Workbook
Sheets("Tableau_Production_Avenir").Activate
Set AW = ActiveWorkbook

'Affiche le chemin et le nom du fichier sélectionné.
'MsgBox Fichier
Dim WS As Workbook

MsgBox "L'application va mettre à jour la base de données de la production prévu sur l annee. Assurez-vous que les différents tableaux présents dans ce fichier soient disponibles a la lecture."

Dim sheetExists As Boolean
Dim sheetToFind As String
Dim comparaison As String
Dim WorkBookToOpen As String
Dim ListTableau As ListObject
Dim y As Integer

Dim Tableau(4) As String

Tableau(1) = "PlanningCirculations2019(hors TAC)_1erTrimestre.xlsm"
Tableau(2) = "PlanningCirculations2019(hors TAC)_2emeTrimestre.xlsm"
Tableau(3) = "PlanningCirculations2019(hors TAC)_3emeTrimestre.xlsm"
Tableau(4) = "PlanningCirculations2019(hors TAC)_4emeTrimestre.xlsm"

y = 2 ' je place le curseur au debut du tableau nb ligne

Sheets.Add(Before:=Worksheets("Data")).Name = "Test"

Dim NomDossierGenerique As String
Dim chemin As String

For t = 1 To 4

    chemin = "\\s56cfgse636\Etablissements\DDTER\Pole Production TER\CCL Thermique CF\ASSEMBLAGE PRODUCTION\"

    NomDossierGenerique = chemin & Tableau(t)

    ' jouvre le fichier
    'Workbooks.Open (NomDossierGenerique)

    'Set WS = Workbooks(Tableau(t))
    Set WS = Workbooks.Open(Filename:=NomDossierGenerique)

    'je mets sheetexiste a faux pour commencer mon iteration
    sheetToFind = "BaseHoraires_Tableau_"
    sheetExists = False

    For Each Sheet In Worksheets

        For i = 1 To 4

            comparaison = sheetToFind & i

                If comparaison = Sheet.Name Then

                    Set ListObj = Worksheets(comparaison).ListObjects("Tableau_Production")

                    MsgBox "pause1"

                    If Worksheets(comparaison).ListObjects("Tableau_Production") <> "" Then
                        MsgBox "coucou"
                    End If

                    AW.Activate

                     If AW.Sheets("Test").Name <> "" Then
                        MsgBox "coucou2"
                    End If

                    Worksheets(comparaison).ListObjects("Tableau_Production").Range.Copy _
                        Destination:=Worksheets(4).Range(Cells(y, 1))
                    '("Test").Range(Cells(y, 1))

                    MsgBox "pause2"

                    Do While Cells(y, 1).Value <> ""

                        y = y + 1

                    Loop

                    MsgBox "pause3"

                End If

        Next

    Next Sheet

Next

bonjour à tous ,

Qui pourrais me réaliser ce tableau sur excel vierge

merci d'avance

nul en excel

002

Bonjour,

Je suis nouveau sur le forum et en VBA, merci de votre indulgence.

Je travaille beaucoup avec des tableaux nommés dans ExceL et je suis venu à la VBA dès lors que j'ai voulu mettre des "protections" qui ont pour conséquence qu'on ne peut plus insérer des lignes automatiquement, ni filtrer pour ordonner, ni supprimer..

Je vous joint un fichier excel d'exemple.

Il s'agit d'une saisie d'info NOM + PRENOM + TAUX...

J'arrive à faire un bouton pour ajouter un nouvelle personne, qui s'incrémente à la bonne place (trie auto).

Je souhaite faire un bouton pour supprimer une/des lignes vides dans ce tableau particulier.

(ex, si j'ai plusieurs tableau sur la même feuille, je ne veux pas supprimer une ligne entière...)

Concrètement, je n'y arrive pas,...

J'ai regarder beaucoup de poste, mais pas le bon sans doute.

merci de votre aide.

David

ps:

par ailleurs, concernant le code de la USERFORM de saisie, je voulais savoir s'il était possible encore une fois de le limiter au tableau, au lieu de la feuille, en utilisant les nom de colonne du tableau par ex:

L = Range("A65000").End(xlUp).Row + 1 => L = Range("TAB_OPERATEURS[NOM]").End(xlUp).Row + 1

'pour saisir dans les 3 colonnes

Range("A" & L).Value = Nom => Range("TAB_OPERATEURS[NOM]" & L).Value = Nom

Range("B" & L).Value = Prenom => Range("TAB_OPERATEURS[PRENOM]" & L).Value = Prenom

Range("C" & L).Value = Taux => Range("TAB_OPERATEURS[TAUX]" & L).Value = Taux

j'ai essayé, mais cela ne fonctionne pas..

Merci pour votre aide,

David

94test-db-230414.xlsm (50.03 Ko)

Bonsoir a tous, lorsque j'ouvre mon UserForm, j'aimerais que son listBox soit vide. Hors il est associe a un tableau nomme. J'ai essayer de vider le tableau nomme avec Range("Occurences_2").Clear mais il ne s'est pas vider. Avez-vous une idee?

Private Sub UserForm6_Initialize()
Range("Occurences_2").Clear
UserForm6.ListBox1.list() = Sheets("ASS").Range("Occurences_2") ' le listBox reflete en temps reel le contenu du tableau "Occurences_2"
ListBox1.SetFocus  'Met le focus sur la ComboBox.

End Sub

Bonjour a tous

Celas fait plusieurs semaine que je cherche comment faire une recherche de plage nommée dans une feuille excel . Car j'ai plusieurs tableaux dans une feuille que j'ai nommé et j'ai besoin d'une valeur dans le tableaux recherché

Bonjour à tous,

Contexte:

Dans le fichier joint vous trouverez un fichier qui contient deux onglets. Le premier onglet "Base" est une base de donnée qui contient la valeur nutritive d'aliments de base.

Problème:

Dans le deuxième onglet "Menu" je souhaite sélectionner un de ces éléments. J'ai donc paramétré dans la colonne A une validation de donnée faisant référence à une liste qui correspond aux valeurs de la colonnes A du premier onglet.

Question:

Je souhaiterai limiter ma liste à la colonne "Aliments" de mon tableau nommé "Base_aliments". Je souhaiterai donc que ce soit la source de la liste déroulante qui fasse référence au tableau "Base_aliment[Aliments]" au lieu de la source "=Base!$A$2:$A$43". Cependant la formule suivante "=Base_aliments[Aliments]" ne fonctionne pas. Auriez vous une idée qui marche?

J'ai joint l'impression écran de ce que je souhaite faire et qui ne fonctionne pas.

D'avance merci pour vos contributions.

Cordialement

capture

Bonjour,

Je galère depuis quelques heures et malgré mes recherches, je n'avance pas.

J'utilise un userform pour alimenter un tableau.

1- Si mon tableau n'est pas un tableau inséré ni nommé (juste ligne 1 avec une en-tête) alors pas de souci, mes données se mettent bien en place et à chaque nouvel enregistrement je descends d'une ligne

2- Si mon tableau est nommé et créé suite à l'insertion d'un tableau par le ruban alors je n'y arrive plus. Soit mes données se mettent en dessous, soit dedans mais chaque enregistrement écrase le précédent ...

Je sèche

D'avance merci pour vos explications éclairées.

Bonjour,

Dans une colonne, je tire des valeurs aléatoirement avec la fonction alea. Je souhaite faire 5 tirages et pour chaque tirage effectuer un copier/coller de ces valeurs dans un tableau nommé Table. Mais je ne sais pas comment faire pour lui dire de coller les valeurs du 1er tirage dans la colonne 1 du tableau Table, le 2ème dans la colonne 2, etc (cf. fichier joint).

Merci pour votre aide.

24tirage.zip (7.67 Ko)

Bonjour,

Je reprend mon fichier car je souhaite le faire sur toute l'année mais pour le moment je suis sur Janvier et février.

Le but est que j'ai un bouton RaZ sur chaque feuille et lorsque je clique dessus il me demande un mot de passe de confirmation et après ce mot de passe validé il supprime les données que je souhaite.

Comment faire ?

Cordialement

Bonjour a tous;

mon problème est tout simple j'ai un tableaux excel avec sur la ligne I6:ME6 les date allant du 01/02/20 au 31/12/20 et sur la colonne C7 les dates déchéance j'ai crée une macro qui lorsque l'une des date de la colonne C est égale a l'une des dates de la ligne H6:MD6 me fait une RAZ. Par exemple si C10 = 04/05/20 alors le calcule s’arrête a cette même date sur la ligne I6:ED6. Mon problème c'est inverser le code pour la colonne date de départ qui se trouve a D7 donc faire une RAZ tant que la date de depart n'est pas retrouvée sur la ligne I6:ME6. Je vous partage mon fichier pour plus de compréhension. merci d'avance pour votre aide.

mon-partagefr/f/Jp1c2nSH/

Bonjour a tous,

cela fait plusieurs fois que je suis confronté a ce probleme. je joints un fichier pour etre plus explicite, parce que je suis pas sur d etre tres clair...

je voudrais faire en sorte que lorsque je modifie une cellule dont depend une liste deroulante alors plutot que de garder toujours l ancienne valeur correspondant a avant la modif, qu elle ne propose rien par defaut, pour forcer l utilisateur a verifier.

merci a tous pour votre aide

Floreli

Bonjour,

J'ai un fichier avec plusieurs feuilles qui restent affichées en permanence avec un premier onglet "PARAMETRAGE" qui va conditionner le reste du fichier (affichage des pages en fonction d'une cellule).

J'avais écris le code suivant pour la RAZ de la page :

Sub RAZParametrage()

' RAZ des cellules modifiées sur la feuille PARAMETRAGE avec message de confirmation

If MsgBox("Etes-vous sûr(e) de vouloir effectuer une RAZ de la page,", vbYesNo, "Demande de confirmation") = vbYes Then

Sheets("PARAMETRAGE").Range("C10:C12,C15,C19:C27,C30:C33,C36:C39,C46,B42:B45,B46,E42:E45,F46:F48").ClearContents

End If

End Sub

Jusque là, rien de sorcier.

Mais j'ai ensuite ajouté ma macro pour afficher les feuilles en fonction de la valeur de la cellule C15 dans mon onglet "PARAMETRAGE". Mon Code :

Sub AfficherFeuille()

If Sheets("PARAMETRAGE").Range("C15") = "Pau" Then

Sheets("Liste Acier").Visible = True

Sheets("Liste Cuivre").Visible = True

Sheets("Liste Divers 1").Visible = True

Sheets("Liste Divers 2").Visible = True

Sheets("Bordereau AQUITAINE").Visible = True

End If

If Sheets("PARAMETRAGE").Range("C15") = "Concarneau" Then

Sheets("Liste Matériel").Visible = True

Sheets("Bordereau DRO").Visible = True

End If

If Sheets("PARAMETRAGE").Range("C15") = "Biguglia" Then

Sheets("Liste Acier").Visible = True

Sheets("Liste Cuivre").Visible = True

Sheets("Liste Divers 1").Visible = True

Sheets("Liste Divers 2").Visible = True

Sheets("Bordereau CORSE CI").Visible = True

Sheets("Bordereau CORSE CM").Visible = True

End If

If Sheets("PARAMETRAGE").Range("C15") = "Aussonne" Or Sheets("PARAMETRAGE").Range("C15") = "Aussonne Client" Then

Sheets("Liste Acier").Visible = True

Sheets("Liste Cuivre").Visible = True

Sheets("Liste Divers 1").Visible = True

Sheets("Liste Divers 2").Visible = True

Sheets("Bordereau MIDI PY").Visible = True

End If

If Sheets("PARAMETRAGE").Range("C15") = "Villars" Then

Sheets("Liste Acier").Visible = True

Sheets("Liste Cuivre").Visible = True

Sheets("Liste Divers 1").Visible = True

Sheets("Liste Divers 2").Visible = True

Sheets("Bordereau RAB").Visible = True

End If

If Sheets("PARAMETRAGE").Range("C15") = "Marseille" Then

Sheets("Liste Acier").Visible = True

Sheets("Liste Cuivre").Visible = True

Sheets("Liste Divers 1").Visible = True

Sheets("Liste Divers 2").Visible = True

Sheets("Bordereau PACA").Visible = True

End If

End Sub

Code qui fonctionne très bien.

Mais ensuite quand j'ai fait ma RAZ, je me suis rendue compte que les pages affichées devaient aussi se masquer.

J'ai donc modifié ma macro RAZ :

Sub RAZParametrage()

' RAZ des cellules modifiées sur la feuille PARAMETRAGE avec message de confirmation

Dim Wsv As Worksheet

Dim Wsh As Worksheet

Set Wsv = Sheets(Array("PAGE DE GARDE", "COPRO", "ABAC", "PROJET TECHNIQUE", "CARNET DE BORD", "ANALYSE DE RISQUES", "AUTORISATION DE TRAVAUX", "FICHE DE CONTROLE"))

Set Wsh = Sheets(Array("Liste Acier", "Liste Cuivre", "Liste Divers 1", "Liste Divers 2", "Liste Matériel", "Bordereau AQUITAINE", "Bordereau DRO", "Bordereau CORSE CI", "Bordereau CORSE CM", "Bordereau MIDI PY", "Bordereau RAB", "Bordereau PACA"))

If MsgBox("Etes-vous sûr(e) de vouloir effectuer une RAZ de la page,", vbYesNo, "Demande de confirmation") = vbYes Then

Sheets("PARAMETRAGE").Range("C10:C12,C15,C19:C27,C30:C33,C36:C39,C46,B42:B45,B46,E42:E45,F46:F48").ClearContents

Wsv.Visible = True

Wsh.Visible = False

End If

End Sub

Là, j'ai un message d'erreur d'execution '9' :

L'indice n'appartient pas à la sélection

Pourriez vous m'aider svp?

14matrice-etudes.xlsm (797.44 Ko)

Bonjour à tous,

j'aimerai avoir l'indication de la place disponible dans une benne sachant que je n'est que 10 places maximum, avec un remise à zéro.

Dans l'exemple joint je n'ai mis que quelques jours mais le fichier va me servir toute l'année.

merci par avance pour votre aide

Cdt

Bonjour à tous,

Je viens vous demander de l'aide concernant un formulaire que j'ai créé (un peu style calculette) pour rentrer une valeur dans une cellule.

Lorsque je l'ouvre, je veux que l'ancienne valeur s'affiche dans le résultat pour faire un rappel à l'utilisateur avant qu'il ne l'a modifie.

Ça c'est bon.

Là ou ça se complique, c'est que quand je commence à rentrer des nouvelles valeurs (chiffres) grâces aux boutons de ma calculette, les nouveaux chiffres s'ajoutent à l'ancienne valeur, or je voudrais faire un RAZ de l'ancienne valeur lors de la première frappe sur un bouton.

Serait-ce possible?

Le fait de récupérer l'ancienne valeur pour faire un rappel est primordiale dans mon fichier, je sais que ça peux paraître bizarre mais cela fait parti d'une mise en forme.

Je vous joint le fichier pour que vous puissiez constater mon soucis.

Je vous remercie d'avance pour l'aide que vous pouvez m"apporter.

Bonjour

Dans cet exemple lorsque je modifie la liste déroulante dans A1 je souhaite que la cellule B1 soit vide

Lorsque je choisie dans A1= Fruits de saison ; alors B1 me fait un choix entre

pommes

poires

bananes

mais en changeant de nouveau la cellule A1 = Légumes de saisons ; la cellule B1 garde l'ancienne valeur et cela c'est pas très logique.

Puis-je affecter le vide à la cellule B1 initialement sans passer par le VBA ?

Bonjour

Dans cet exemple lorsque je modifie la liste déroulante dans A1 je souhaite que la cellule B1 soit vide

Lorsque je choisie dans A1= Fruits de saison ; alors B1 me fait un choix entre

pommes

poires

bananes

mais en changeant de nouveau la cellule A1 = Légumes de saisons ; la cellule B1 garde l'ancienne valeur et cela c'est pas très logique.

Puis-je affecter le vide à la cellule B1 initialement sans passer par le VBA ?

Bonjour,

Dans le fichier Joint J'aimerais créer un bouton RAZ pour :

Dans l'onglet "Promo" effacer Les Cellules C2 à C31 et les cellules (menu déroulant) E2 à E31

Dans Les onglets "fiche anticip cass Sec", "fiche anticip frais" et "Fiche anticip cass BB" effacer tout le contenu

Et j'aimerai en même temps protéger dans l'onglet promo toutes la feuille sauf la colonne C et E

je patauge pour créer la macro

Si qqu'un pouvait m'aider ça serait super sympa

merci d'avance

Bonjour à tous,

Je travaille actuellement sur Excel afin d'attribuer un N° automatiquement à un client précis.

Mon Userfom est terminé cependant j'aurai besoin d'un petit coup de main, je vais essayer de vous expliquer ça le plus clairement possible

Alors -->

1. J'aimerai que lorsque je clique sur ma recherche (bouton recherche), un numéro s'attribue automatiquement et ainsi de suite lorsque j'insère un nouveau client, de façon chronologique.

2. J'aimerai insérer un bouton RAZ (Remise à zéro) dans mon userform, en effet lorsque je sélectionne mon client et que je veux supprimer la ligne j'aimerai cliquer sur le bouton RAZ, et ensuite l'intégralité des infos de mon client se supprime (bien entendu un imput box du genre êtes vous sur de vouloir supprimer ceci? serait le bienvenue!...)

3. Sur ma deuxième feuille, j'aimerai que lorsque j'insère un nouveau client, celui ci s'insère automatiquement sur la première ligne de vide. Grosso modo, si je supprime 10 lignes j'aimerai que mon nouveau client saisit s'insère sur la ligne après la dernière qui est écrite complétée! Il faudrait aussi (cela rejoint la demande 1 : Lorsque je supprime des lignes, les numéros de client vont se supprimer donc il faudrait que la nouvelle saisit reprenne au dernier numéro enregistré)..

Voilà j'ai essaye d'être le plus clair possible, je vais continuer de chercher de mon côté! en attendant un peu de votre aide si vous avez quelques minutes à m'accorder!!

Un grand merci

Re-bonjour,

Super le forum, j'avance grâce à vous au fur et à mesure...

Alors voilà, nouvelles demande d'aide:

Dans le fichier ci joint, sur l'onglet "AJOUT EVENEMENT", j'aimerai insérer deux fonctions:

1- que le bouton "RAZ" en bas puisse vider les case en vert...

2- (plus compliqué je pense)

que le bouton "ENREGISTRER" cré un nouvel onglet (si possible, sinon je les créerai un par un en avance) nommé à la date rempli dans la partie date et fasse une copie du texte inscrit dans les case en verte dans ce nouvel onglet (voir exemple onglet "1 JANVIER 2016"

Merci par avances de vos lumières

Recherches récentes

cdblcocherdatebaie informatiquemfccopier collercuveriesuivisharepoint vbasupprimer ligne valeur presente colonne precisecombobox fichier fermeecheancier semaineregrouper donnees ongletsrecuperer ongletsrecupererongletongletsregrouper ongletsrechercher valeur criteregrande valeur critere