Résultats de la recherche

Bonsoir, Je pense que l'erreur vient du fait qu'il y avait deux lignes à modifier : If Application.CountIf([E23:F37], "X") >= 15 Then C'est là qu'on compte les "x".

Re, Un essai en PJ.

Re, Qu'entendez vous par là?

Bonjour Auverland, Une possibilité en PJ avec : Private Sub CommandButton1_Click() Application.ScreenUpdating = False T = [J1:J7] For i = 1 To UBound(T) If T(i, 1) <> "" Then Sheets(Split(T(i, 1), "!")(0)).Visible = 0 End If Next i End Sub Mais comme rien n'est demandé pour les...

Bonjour Halecs, Peut être avec : =AUJOURDHUI()-DATE(A1;A2;1) si A1 est le nombre d'années, et A2 le nombre de mois. La date de naissance est calculée à partir de la date d'aujourd'hui, à défaut d'une demande plus précise. Et mettre ce résultat en format date. Soit par ex ...

Bonjour Lestoiles, Par quoi ? Comment ? Vous voulez insérer ces fameuses données en haut et non à la fin ? Mais si on les trie par ordre alpha, quelle importance de les insérer en haut ou en bas ? ... ou n'importe où. A quoi est censé servir Button1 ? A lancer une macro ou un userform, ?

Oups. Corrigé en PJ.

PJ à tester.

PJ à tester.

Vous êtes sur que Prénom et Nom ne se suivent pas ? Cela me semble absurde. Outre le fait qu'il faille tout reprendre. 😟

Re, Voir PJ.

Le fichier est un xlsx sans les macros, que dois je vérifier ? Dans la V2 j'ai fait l'essai : Les deux lignes R1214 et R1215 sont bien recopiées avec les bonnes valeurs. Donc je ne comprends rien, faites un effort de clarté. :)

Re, PJ à tester.

Re, Un nouvel essai.

Re, Un essai en PJ, avec un tirage au sort des ex aequo, le tirage est automatique, en rajoutant en colonne E : =D11+LIGNE()/1000000 le petit delta ajouté ligne()/1000000 fait qu'on ne peut pas avoir d'égalité.

Bonjour Marvin, Un essai en PJ : Sub UpdateReserve() Dim Ajout, Reserve, Najout%, i%, j%, C%, Present Ajout = [Tableau2] ' Transfert tableau Ajout dans array Reserve = [Tableau5] ' Transfert tableau Reserve dans array Najout = 0 ' Pour compter le...

Généralement quand un contributeur ne comprends pas la demande c'est que la demande est ambigüe, peu précise, trop vague. Dans ce cas le contributeur comprends ou pas. Dans ce cas on fait un peu au pif ou on demande des précisions. Mais inutile d'être agressif envers quelqu'un qui essaye de vous...

Bonjour Atlas, Un essai en PJ. Création feuille en automatique si en D on a "oui" : Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fin: If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [D5:D1000]) Is Nothing Then Application.ScreenUpdating = False If...

Bonjour Freppel, Un pdf n'aide guère, vous auriez pu mettre un fichier XL, ne serait ce que pour qu'on ne soit pas obligé de se le retaper. En PJ un essai avec : =REPT("IIIII ";ENT(D3/5)) & REPT("I"; D3-5*ENT(D3/5))

Bonjour Efgé, Exact. Mais je répondais à la demande : Je voulais dire qu'une formule ne peux pas écrire dans une forme. J'admets, ma réponse était ambigüe. :)