8670 résultats trouvés

par h2so4
il y a 37 minutes
Forum : Excel - VBA
Sujet : Remonter les kilomètres
Réponses : 2
Vues : 32

Re: Remonter les kilomètres

Bonjour,

Salut Steelson

formule non matricielle mais avec MAX.SI.ENS (excel 2016 )
=SI(NB.SI($A$1:$A2;A2)=1;INDEX('Liste véhicule'!B:B;EQUIV(Suivi!A2;'Liste véhicule'!A:A;0));MAX.SI.ENS($D$1:D1;$A$1:A1;A2))
par h2so4
Aujourd’hui, 11:08
Forum : Excel - VBA
Sujet : Formule SIERREUR RECHERCHEH
Réponses : 2
Vues : 28

Re: Formule SIERREUR RECHERCHEH

Bonjour, une solution via une fonction personnalisée Function liste(plage, critere As String) Dim rep$, c rep = "" For Each c In plage If c Like critere Then rep = rep & c & "," End If Next If rep <> "" Then liste = Left(rep, Len(rep) - 1) End Function voir fichier pour exemple d'utilisation
par h2so4
Aujourd’hui, 01:18
Forum : Excel - VBA
Sujet : Récupérer le masque de sous réseau d'un autre ordinateur
Réponses : 4
Vues : 91

Re: Récupérer le masque de sous réseau d'un autre ordinateur

Bonsoir, J'avais un retour systématique m'indiquant que le cliboard était vide, il manquait une petite partie de la commande, mais avec la modif ci dessous c'est bon, je récupère le masque ! Oui je me suis rendu compte que j'ai mis la version qui m'a permis de tester (sans userid et password) et j'a...
par h2so4
Hier, 13:01
Forum : Excel - VBA
Sujet : Récupérer le masque de sous réseau d'un autre ordinateur
Réponses : 4
Vues : 91

Re: Récupérer le masque de sous réseau d'un autre ordinateur

Bonjour, une proposition Dim userid, password Sub getIP() If userid = "" Then userid = InputBox("Nom d'utilisateur (domaine\account)") password = InputBox("Password") End If If userid <> "" Then userid = " /user: " & userid: password = " /password:" & password ip_address = InputBox("adresse IP de la...
par h2so4
Hier, 11:21
Forum : Excel - VBA
Sujet : Scénarios de combinaisons
Réponses : 8
Vues : 97

Re: Scénarios de combinaisons

Bonjour, comme tu l'expliques c'est bien 2 ^12 et non 12^2 tu as 2 possibilités pour le 1er match tu as 2 possibilités pour le 2 nd tu as 2 possibilités pour le 3ème etc... possibilités que tu dois multiplier entre elles donc 2*2*2*2*2*2*2*2 ...soit 2^12 Comment faire dans le cas où c'est 12^2 combi...
par h2so4
Hier, 11:18
Forum : Excel - VBA
Sujet : Extraire des information d'un tableau pour les envoyer par outlook
Réponses : 1
Vues : 51

Re: Extraire des information d'un tableau pour les envoyer par outlook

Bonjour, une ébauche de solution, via une macro Sub aargh() With Sheets("plan de progres ") dl = .Cells(Rows.Count, 3).End(xlUp).Row Set ol = CreateObject("outlook.application") Set dict = CreateObject("scripting.dictionary") For i = 11 To dl 'on parcourt toutes les tâches nom = .Cells(i, "I") 'nom ...
par h2so4
Hier, 10:26
Forum : Excel - VBA
Sujet : Scénarios de combinaisons
Réponses : 8
Vues : 97

Re: Scénarios de combinaisons

Bonjour, dans ce cas tu as 2^12 combinaisons possibles. Voici une solution possible pour générer la liste. Sub aargh() genere End Sub Sub genere(Optional n = 1, Optional s = "") os = s For i = 1 To 2 s = s & " " & i If n = 12 Then dl = Cells(Rows.Count, 1).End(xlUp).Row Cells(dl + 1, 1) = s Else gen...
par h2so4
4 décembre 2019, 11:12
Forum : Excel - VBA
Sujet : Classement pétanque
Réponses : 9
Vues : 117

Re: Classement pétanque

Bonjour,

classeur adapté
par h2so4
3 décembre 2019, 20:11
Forum : Excel - VBA
Sujet : Classement pétanque
Réponses : 9
Vues : 117

Re: Classement pétanque

bonsoir,

voici
par h2so4
3 décembre 2019, 20:00
Forum : Excel - VBA
Sujet : Pilote ODBC/Erreur d'execution 5922
Réponses : 4
Vues : 69

Re: Pilote ODBC/Erreur d'execution 5922

bonjour, tu parles d'un problème sur un code qui fonctionnait et qui ne fonctionne plus depuis quelque peu, ceci dans un contexte d'utilisation d'excel via ODBC. Le lien que je t'ai mis parle d'un problème récent dans ce contexte suite à une mise à jour de windows et propose des solutions. Ceci dit,...