530 résultats trouvés

par oxydum
Aujourd’hui, 08:31
Forum : Excel - VBA
Sujet : Tableau de bord rh
Réponses : 1
Vues : 43

Re: Tableau de bord rh

par oxydum
Hier, 21:38
Forum : Excel - VBA
Sujet : Envoi par mail une feuille excel 2010 sans macro
Réponses : 2
Vues : 42

Re: Envoi par mail une feuille excel 2010 sans macro

Bonsoir,

Ne préférerais-tu pas l'envoyer par la Poste ? Ça serait plus facile. :mrgreen:
par oxydum
Hier, 16:35
Forum : Excel - VBA
Sujet : Automatisation paniers vente au détail
Réponses : 8
Vues : 85

Re: Automatisation paniers vente au détail

Désolé,
J'ai fait une petite modif pour être plus précis dans l'ajout de ligne en fin de tableau.
par oxydum
Hier, 16:20
Forum : Excel - VBA
Sujet : Automatisation paniers vente au détail
Réponses : 8
Vues : 85

Re: Automatisation paniers vente au détail

En effet, sans vba... mais pour aller à la ligne, il faut gérer ça avec du code. ALT-F11 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("TabSaisie")) Is Nothing Then If Target.Column > 6 Then Cells(Target.Row + 1, 1).Select If Target.Row > Range("TabSai...
par oxydum
Hier, 11:27
Forum : Excel - VBA
Sujet : Automatisation paniers vente au détail
Réponses : 8
Vues : 85

Re: Automatisation paniers vente au détail

Voilà comment la chose évolue... la première colonne différencie automatiquement les paniers, si le vendeur est "@" alors changement de panier et MFC en noir. J'ai aussi au passage rendu dynamique les tableaux de listes, ce qui permet d'ajouter un vendeur sans devoir changer les formules. Voir le ge...
par oxydum
Hier, 09:20
Forum : Excel - VBA
Sujet : Lier deux fichiers excel
Réponses : 4
Vues : 61

Re: Lier deux fichiers excel

Sub Test() On Error Resume Next nomDEFPARAM = "Feuil1" nomREADME = "Feuil2" Worksheets(nomDEFPARAM).Cells(1, 1).Comment.Delete Worksheets(nomDEFPARAM).Cells(1, 1).AddComment Worksheets(nomDEFPARAM).Cells(1, 1).Comment.Visible = True Debug.Print Worksheets(nomREADME).Cells(2, 2) Worksheets(nomDEFPAR...
par oxydum
Hier, 09:05
Forum : Excel - VBA
Sujet : Import de données d'un autre fichier
Réponses : 2
Vues : 43

Re: Import de données d'un autre fichier

Bonjour, Peut-être un truc comme ça : Private Sub GetValuesFromAClosedWorkbook(ByVal strFilepath As String, ByVal strFilename As String, ByVal strSheet As String, ByVal strRange As String, ByVal strActiveSheet As String) With Sheets(strActiveSheet).Range(strRange) .FormulaArray = "='" & strFilepath ...
par oxydum
Hier, 07:17
Forum : Excel - VBA
Sujet : Lier deux fichiers excel
Réponses : 4
Vues : 61

Re: Lier deux fichiers excel

Bonjour,

Essaie ça :
Worksheets(nomDEFPARAM).Cells(1, 1).Comment.text text:=Worksheets(nomREADME).Cells(2, 2)
par oxydum
16 janvier 2020, 13:33
Forum : Excel - VBA
Sujet : "Selection.row" d'une feuille non active
Réponses : 7
Vues : 80

Re: "Selection.row" d'une feuille non active

M'ouais... dans ce cas, je propose ça :
par oxydum
16 janvier 2020, 08:41
Forum : Excel - VBA
Sujet : "Selection.row" d'une feuille non active
Réponses : 7
Vues : 80

Re: "Selection.row" d'une feuille non active

sauf erreur, pas prévu au programme VBA ! Salut curulis57, J'ai été surpris par ta réponse, qu'est-ce que t'en penses : Sub test() [Feuil1].Activate [A1] = "=CELL(""colonne"")" MsgBox [A1] [Feuil2].Activate [A1] = "=CELL(""colonne"")" MsgBox [A1] [Feuil3].Activate [A1] = "=CELL(""colonne"")" MsgBox...