Recherche:

Un exemple de code


Option Explicit
Option Base 1

Sub test01()
Dim i As Integer, j As Integer
Dim x As Double
Dim listSheets()

Bonjour
Quand on appelle la fonction on sait s'il y une ou plusieurs colonnes. Il suffit donc d'ajouter un paramètre à la fonction pour l'indiquer.


Function in_array(tableau, recherche, nbDim)...

Bonjour
Une autre proposition

Bonjour


Sub dico()
Dim dico As Object, i%
Set dico = CreateObject("Scripting.Dictionary")
dico("montants") = ""
For i = 1 To 4
dico(Cells(i, 3)) = ""
Next i

Bonjour
En remplaçant :

ActiveCell.Address <> "$D$3" Then
par :

If Target.Address <> "$D$3" And Target.Address <> "$D$4" Then Exit Sub

Bonjour



Sub EnvoiMail()
'Envoi la feuille Mail actualisation par mail
Application.DisplayAlerts = False

' Le code de la procédure

Bonjour


Sub insertLignes1()
Dim nlh%, nlb%, nc%, i%, J%
Dim tmp1, tmp2
Dim tb()
nlh = Range("A1").End(xlDown).Row
nlb = Range("A65000").End(xlUp).Row
nc = Cells(nlh,...

C'est pas grand chose mais ça peut être utile.


df <- data.frame(v1 = NA, v2 = NA)
df <- df %>% slice(0)
valeurs <- c(1,2)
names(valeurs) <- c("v1", "v2")

## ou sans tidyverse
df <-...

Sur un gros jeu de données le résultat n'est pas convainquant. Je n'ai aucune idée d'où cela peut venir.


length(unique(df$gr))
54598

system.time({
res5 <- df %>% group_by(gr) %>%...

Plus simple mais beaucoup moins rapide :

system.time :
utilisateur système écoulé
31.74 0.01 33.06
contre :

system.time :
utilisateur système ...

Eureka! J'ai trouvé.

fcomparer <- function(df,...){
as.data.frame(t(as.integer(df$x %in% df$y )))
}
res <- df %>% group_map(fcomparer)

5.4 secondes pour traiter 11441 groupes.
Difficile...

Merci pour la proposition. En effet ça ne semble pas être très efficace mais c'est tout de même bien plus élégant que mes boucles.
Il me semble que group_map serait pertinent mais je coince sur...

Bonsoir.
Dans une dataframe groupée je cherche si des valeurs d'une colonne sont présentes dans une autre colonne pour chaque groupe indépendamment bien sûr.
Voici in exemple factice et simplifié...

Ça y est j'ai trouvé. Merci pour le coup de main.

L'équivalent existe effectivement dans chrome mais ni dans l'un ni dans l'autre je n'ai réussi à trouver cette URL. Je ne dois pas chercher où il faut...
Sinon le json c'est génial. La table que je...

Merci Theta. Je vais regarder cela tout de suite mais le json je n'ai encore jamais vu, j'ai de quoi m'occuper un moment. Accessoirement pourrais tu me dire comment tu accèdes aux requêtes envoyées...

Bonsoir tout le monde (formule pour ne pas s'embarrasser avec l'écriture inclusive lol)
Plus sérieusement voici mon problème : je veux récupérer les données d'une page web
Les données sont incluses...

Cells(ActiveCell.Row, 3).Value = UCase(Cells(ActiveCell.Row, 3).Value)

Ca doit pouvoir être amélioré mais poour le moment ça fonctionne...
Bonne journée

Bonjour à tou(te)s
J'ai trouvé des tas de codes pour passer le contenu d'une cellule en majuscules. Parmi tous ceux qui fonctionnaient celui qui m'a semblé le plus "propre" est celui ci :
If...

Merci infiniment, ça marche :P
Je vais changer les noms des tableaux dans le genre tb_eleves pour celui de la feuille eleves. ça devrais éclaircir un peu le code
Merci aussi pour la rapidité de tes...

c'est le nom d'une feuille. c'est aussi, je sais ce n'est pas très malin, le nom du tableau qui se trouve sur la feuille du même nom. "eleves[eleves]" comme adressage ça n'aide pas à la compréhension...

Pourtant je te garanti que chez moi il fonctionne, sinon je n'aurais pas ouvert ce topic:?

Dans le module standard tout fonctionne parfaitement (du moins pour le moment).
En effet il manque les déclarations mais pour autant que je saches ça n'est pas indispensable même si c'est plus...

Bonjour à tou(te)s
J'ai écris, non sans mal vu mon niveau en vba, un code qui ajoute des colonnes à un tableau sur une autre feuille en fonction du contenu d'une colonne dans un premier tableau.
Je...

print(prop.table(as.matrix(dataTest1[, 14:18]), 2L))
vtc1 vtc2 vtc3 vtc4 vtc5
[1,] 0.005353344 0.004369482 0.003491226 0.003863309 0.0028187827
[2,]...