5732 résultats trouvés

par Dan
14 février 2019, 13:23
Forum : Excel - VBA
Sujet : help
Réponses : 1
Vues : 63

Re: help

Bonjour

Merci de prendre le temps de lire ce lien (point 3 surtout) et d'éditer le titre votre sujet afin qu'il soit en rapport avec votre demande --> viewtopic.php?f=2&t=13

Merci de votre participation

Cordialement
par Dan
13 février 2019, 13:23
Forum : Excel - VBA
Sujet : mise à jour tableau code VBA
Réponses : 7
Vues : 85

Re: mise à jour tableau code VBA

Bonjour Combien pouvez-vous avoir de lignes dans la feuille report_skill ? Essayez déjà avec ce code Sub test() Dim lig As integer, i As Integer Dim col As Byte With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With With Sheets("Fichier") .Range("B5:G" & .Range("A" & .R...
par Dan
12 février 2019, 12:55
Forum : Excel - VBA
Sujet : mise à jour tableau code VBA
Réponses : 7
Vues : 85

Re: mise à jour tableau code VBA

Re

Un premier problème est que certaines cellules sont liées à un autre fichier. Normal cela ?

Est-ce que les tableaux situés entre la colonne A et G
- comporte toujours 6 personnes ?
- sont-ils chacun identiques ?

Combien de tableaux à compléter de X pouvez-vous avoir ?
par Dan
12 février 2019, 08:06
Forum : Excel - VBA
Sujet : mise à jour tableau code VBA
Réponses : 7
Vues : 85

Re: mise à jour tableau code VBA

Bonjour

Pouvez-vous me donner votre fichier ou tout au moins un fichier avec plus de données. Cela me permettra de voir comment il est structuré

Cordialement
par Dan
11 février 2019, 13:27
Forum : Excel - VBA
Sujet : mise à jour tableau code VBA
Réponses : 7
Vues : 85

Re: mise à jour tableau code VBA

Bonjour Essayez avec ce code Sub test() Dim lig As Byte, col As Byte Dim i As Integer Sheets("Fichier").Range("B8:G13").ClearContents With Sheets("report_skills") For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row On Error Resume Next lig = WorksheetFunction.Match(.Range("A" & i), Sheets("Fichier"...
par Dan
7 février 2019, 13:10
Forum : Excel - VBA
Sujet : Macro mobile pour effacer des lignes
Réponses : 3
Vues : 93

Re: Macro mobile pour effacer des lignes

Hello Baton :wink:

cela faisait longtemps...

Avec un code du genre par exemple

Code : Sélectionner et copier le code

Sub tes()
Dim r As Integer
r = ActiveCell.Row
Rows(r & ":" & r + 7).Delete Shift:=xlUp
End Sub
Cordialement
par Dan
4 février 2019, 17:55
Forum : Excel - VBA
Sujet : Chercher une valeur dans une colonne boucle
Réponses : 16
Vues : 183

Re: Chercher une valeur dans une colonne boucle

Bonsoir

A essayer comme ceci

Code : Sélectionner et copier le code

derlig = Range("j" & Rows.Count).End(xlUp).Row
For X = 2 To derlig
    If Range("j" & X) Like "*test*" Then Range("AB" & X) = "OUI" '
Next X
Cordialement
par Dan
4 février 2019, 10:38
Forum : Excel - VBA
Sujet : Changer automatiquement le facteur de zoom selon qu'on ouvre sur Mac ou PC
Réponses : 12
Vues : 178

Re: Changer automatiquement le facteur de zoom selon qu'on ouvre sur Mac ou PC

re
Ça marche sur mon PC. Reste à tester sur mon Mac au bureau.
Les 2 codes que je propose fonctionnent sur MAC. je les ai testés avant de poster

Cordialement
par Dan
3 février 2019, 14:13
Forum : Excel - VBA
Sujet : Changer automatiquement le facteur de zoom selon qu'on ouvre sur Mac ou PC
Réponses : 12
Vues : 178

Re: Changer automatiquement le facteur de zoom selon qu'on ouvre sur Mac ou PC

re 1/ à chaque ouverture du même classeur sur Mac, le facteur de zoom va augmenter d'un facteur 1,44 Non. Cela restera à 144. 2/ la macro est unique pour un classeur donné. Donc si j'ai travaillé sur plusieurs feuilles, la correction du facteur de zoom ne s'applique qu'à la feuille affichée lors du ...