Reprise du message précédent :
Pas compris le coup du profil... le sien ? le mien ? il dirait quoi le profil ??
 
Je ne cherche pas du tout à donner aucune réponse.. et sans pour autant dire qu'on est à l'école... le but de chacun est de progresser... et en cherchant soit même, on retient mieux. C'est d'ailleurs une très bonne attitude dans l'utilisation de l'outil informatique que d'être curieux, de chercher, de tester, de lire les docs, les aides sur la fonction, etc...
Sujet clos pour moi.

Bonjour,
 
J'ai une petite question :
J'ai un tableau avec 3 colonnes, dont 2 remplies.
La première, avec des nombres de 1 à 100 (je simplifie), la seconde avec un nombre allant de 200 à 2000.
La troisième est le résultat de la seconde multiplié par une valeur fixe (5), puis remultiplié par 13, à condition que la colonne 1 soit égale à 100.
Est-ce qu'il existe une formule/macro pour que le calcul se fasse automatiquement pour rétablir le résultat de la colonne 2 si celui de la colonne 1 n'est pas égal à 100 ?
 
De manière concrète, si j'ai le tableau suivant :
 
10    200  =(200*5*13)
100  300  =(300*5*13)
 
Comment faire pour automatiquement transformer la première ligne en :
100  2000  =(2000*5*13) ?
 
Et du coup que le calcul se fasse automatiquement sur toutes les lignes de mon tableau..
 
Je ne sais pas si je suis très clair ?

=SI(A1<100;A1*B1*5*13;B1*5*13)
 
si j'ai bien compris  

Je comprends pas pourquoi le A1*B1 ?
Et là ça calcule si et seulement si, A1<100, ce qui n'est pas le cas dans ce que je cherche...
 
Hum...
Je cherche à faire un calcul de la case A1 de manière à ce qu'elle corresponde à 100, et appliquer ce calcul sur la valeur de la case B1 automatiquement.
 
En fait, ce serait peut être 6 cases qu'il me faudrait...
 
A1   A1' (modifié pour être égal à 100)  B1  B1' (modifié avec la formule utilisée en A1') et C1, qui est la valeur finale, C1' cette valeur rétablie sur A1'
 
Exemple concret avec de vraies valeurs :
151  479            <- Je multiplie 479 par 5 (valeur du point), puis par 13 (nombre fixe)
130  370            <- Je cherche le nombre de point (B1) après avoir passé A1 pour le faire correspondre à 151, avant d'appliquer la règle de calcul ci-dessus
 
Et bien sûr, je n'ai pas que 130, j'ai aussi des 90, des 64 ... ... Du coup j'aimerai automatiser la chose

A1*B1... dans ton exemple, 200x10 = 2000, donc la formule a été écrite ainsi, mais il vaut peut être mieux avoir 2000 "en dur" dans ton cas, seul toi peut le savoir dans ce cas là pour le coup.
 
Et ça calcule aussi dans le cas où A1 n'est pas < 100 => c'est la 2ème partie du SI => B1*5*13
 
Rien compris à ton coup des points B1, etc ensuite...
 
A la place de mettre 5 et 13 en dur dans tes formules, je te conseille d'utiliser des formules du type $A$1 (autre chose que $A$1 qui est déjà utilisé pour tes données dans ton exemple bien sûr) pour faire référence à une cellule "fixe"... les $ font que lorsque tu étends ta formule, il ne modifie pas la valeur
 
edit : plus je te relis, moins je comprends ce que tu veux faire.
Tu cherches à résoudre une équation ou qq chose comme ça ?

Oui, je sais que c'est pas clair, désolé    
 
En gros, j'ai un tableau avec des personnes, leur rémunération en nombre de points (ça fonctionne comme ça chez nous), ainsi que leur temps de travail.
Je cherche à calculer le salaire "consolidé" pour chacun.
Pour ce faire, il faut que je passe tout le monde à temps plein (151,..). Mais ça fait énormément de monde !
Alors je cherche une formule qui me permette de faire le calcul X -> 151,.. à ma place, quelque soit la valeur de X, et d'appliquer la règle de calcul au nombre de points (qui se retrouverait de ce fait majoré).
 
L'objectif étant par la suite d'utiliser le nombre de points ainsi trouvé pour lui appliquer une autre règle de calcul : Le multiplier par la valeur du point pour avoir le salaire au mois, et le multiplier ensuite par 13 pour le salaire annuel + 13° mois.

Môssieur est dans la fonction publique
 
Bon, pas tout compris à la règle, mais là pour le coup, il faut que tu utilises des fonctions mathématiques pour trouver le résultat de ce que tu cherches... regarde dans les fonctions statistiques, tu dois pouvoir trouver ce que tu veux.
Sinon, essaie de poser clairement la façon dont tu fais le calcul "de tête", et tu trouveras la solution...

Même pas
 
Ouaip, je pense que je vais faire ça, là j'ai avancé et j'ai tout fait à la main avec une superbe formule qui ressemble à ça :
=SI(D5=A$5;O5;SI(D5=A$6;O5/B$6*100;SI(D5=A$7;O5/B$7*100;SI(D5=A$8;O5/B$8*100;SI(D5=A$9;O5/B$9*100;SI(D5=A$10;O5/B$10*100;SI(D5=A$11;O5/B$11*100)))))))
 
 

tu peux l'écrire avec façon algorithmique que ça soit plus lisible stp ?
ou ta feuille de calcul (avec des données fictives bien sûr)

une règle de 3 sinon ?

oui, je pense qu'une vulgaire règle de 3 suffirait

En fait, la formule que j'ai copiée ci-dessus va chercher en A$* la valeur de temps de travail (A$5 va cherche un temps plein, les autres vont chercher un temps partiel), en B$* la coefficient trouvé via la règle de 3 précédemment effectuée pour chaque valeur de temps partiel.
 
 

La 11° ligne est juste là pour le contrôle

Du coup tu as trouvé comment faire ? (parce que pour moi c'est pas plus clair si tu veux qu'on t'aide... il faut nous donner qq exemples et + de données que 2 lignes, en indiquant ce que tu connais, et ce que tu cherches)

Oui oui j'ai trouvé finalement, merci, je posterai sûrement un extrait du excel dès que je l'aurai finalisé et que j'en aurai modifié les données

Bonjour,
 
Petite question, je cherche à mettre au point un publipostage de réalisation de bons de commande, mais pour ça j'ai besoin d'extraire toute les données non vides de la dite commande. (comprendre par là que comme les commandes changement toutes les semaines, il faudrait une formule/macro pour ne garder que les articles commandés).
 
C'est donc un premier fichier excel avec un onglet 1 d'une centaine de lignes, dont il ne faut extraire que celles où il y a des produits commandés (un produit/ligne).
Soucis, je n'y arrive pas, je tatonne mais n'arrive pas à faire ce que je veux et je me retrouve avec soit des espaces entre mes lignes sur l'onglet 2, soit carrément des doublons.
 
Exemple :  
VASQUE
CIMENT
CHAUX
CHAUX
CHAUX
CHAUX
CHAUX
CHAUX
CHAUX
CHAUX
CHAUX
 
etc... Jusqu'à ce que je trouve un autre produit commandé, sans lien avec la quantité demandée.
 
Comment faire pour avoir une formule dynamique qui me permette de ne récupérer que les lignes non vides sans créer de doublons ?
 
J'ai tenté quelques formules mais elles sont gigantesques et pas optimisées.
 
Je pensais à une macro, mais je ne sais pas comment faire..
 
Merci par avance pour votre aide
 
edit : Trouvé !
 
Sub SansDoublons()
Application.ScreenUpdating = False
    With Range("a1:a" & [a65000].End(xlUp).Row)
        .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("b1" ), Unique:=True
        .Offset(0, 1).Sort Key1:=Range("B1" ), Order1:=xlAscending, Header:=xlYes
    End With
End Sub
 
Il me fait exactement ce que je cherche

 
Hello
 
Je tente ma chance ici, j'ai cherché partout, rien trouvé    
 
Je cherche un tableau Excel à télécharger (un lien svp), qui donne les heures de lever et de coucher du soleil sur Paris, pour 366 jours en 2016
 
La finalité, c'est modéliser un agenda du sommeil pour un étudiant en médecine. Saisies d'heures et calculs à la clé, ca me cause aucun souci, juste remplir un tableau et le transposer en graphe.
 
L'ensoleillement, la couverture nuageuse ou la lune j'en ai pas besoin...
 
Merci d'avance    
 

A telecharger je sais pas...
Mais en 10mn tu as ton tableau avec ça :
http://www.timeanddate.com/sun/france/paris?month=1
Juste à changer le 1 jusqu'à 12 en passant par l'onglet Données, Web et en mettant le lien en A1, ensuite soit sur un autre onglet pour février, soit en A36 voir en N1

Edit, je me faisais chier devant la téloche : http://dje69r.free.fr/DantisteSunset.xlsx

 
 
Ouaouuuuh !!!!!
 
 
 

 
 

 
 
Merci    
 

Bonjour à tous !
 
J'ai une requête à vous soumettre sur du code VBA sous excel :
 
Actuellement, ma macro m'affiche un certain nombre d'informations en fonction de valeurs de cellules dans un commentaire (Cela m'évite d'avoir plusieurs colonnes à afficher pour ces infos).
Pour séparer ces informations, au début de chaque ligne de commentaire j'ai mis chr(10). Mais, comme c'est exactement ce que je lui demande et il fait tout ce qu'on lui dit il effectue un saut de ligne, même quand il n'y a pas de texte avant.
 
Voici le code en brut :

Ce que je voudrais faire, c'est supprimer les sauts de ligne si il n'y a pas de texte avant. Je me doute bien qu'avec une boucle if cela doit être possible mais comme vous pouvez le constater mon code est déjà assez lourd comme ça ...  
 
Donc si vous avez une solution simple, je suis preneur !
 
Merci et bonne journée !  

Tu as juste à tester en plus si la zone contient du texte....
(d'un point de vue sémantique sinon... l'instruction "if" n'est pas une boucle )

Ou tout mettre dans une string, et à la fin tu supprimes le RC s'il y est
 
Edit, un truc comme ça devrait le faire :

Dim MonComment As String
    MonComment = ""
    
    If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 Or _
        Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Or _
        Sheets("Résumé Codage Air" ).Range("I" & i).Value <> 0 Or _
        Sheets("Résumé Codage Air" ).Range("J" & i).Value <> 0 Then
    
    
        If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 <> 0 Then
            MonComment = Sheets("Résumé Codage Air" ).Range("G" & i).Value & " EPBIdF"
            '.Comment.Text Text:=Sheets("Résumé Codage Air" ).Range("G" & i).Value & " EPBIdF"
        
        End If
        
        
        If Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Then
            MonComment = MonComment & vbCrLf & Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO"
            '.Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO", Start:=20
        
        End If
        
        
        If Sheets("Résumé Codage Air" ).Range("I" & i).Value <> 0 Then
            MonComment = MonComment & vbCrLf & Sheets("Résumé Codage Air" ).Range("I" & i).Value & " EPBE"
            '.Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("I" & i).Value & " EPBE", Start:=40
        
        End If
        
        
        If Sheets("Résumé Codage Air" ).Range("J" & i).Value <> 0 Then
            MonComment = MonComment & vbCrLf & Sheets("Résumé Codage Air" ).Range("J" & i).Value & " EPBSE"
            '.Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("J" & i).Value & " EPBSE", Start:=90
        
        End If
    
    End If
 
    'Suppr le retour Chariot du début
    If Asc(Left(MonComment, 1)) = 13 Then MonComment = Right(MonComment, Len(MonComment) - 2)

 
NB : vbCrLf met le retour chariot et le saut de ligne  
VbLf = Chr(10) = Line Feed = Saut de Ligne
vbCr = Chr(13) = Carriage Return = Retour Chariot
vbCrLf = Chr(13) & Chr(10) = Retour Chariot et Saut de Ligne

Bonjour à tous !
 
Déjà, merci pour vos deux réponses, djer69r et Ptit loup, cela m'aide à voir ce que je recherche.
J'ai toutefois quelques questions :
 
@Ptit loup : Y a t'il une manière de tester cette présence/absence de texte autrement qu'avec IF ? Car c'est ce que j'ai fait et je trouve ça un peu lourd comme écriture :

If Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Then
  If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 Then
  .Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO", Start:=20
  Else: .Comment.Text Text:=Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO", Start:=20
  End If
End If

 
@djer69r : Je comprends l'idée, même si ta dernière ligne me laisse sans voix (Tu testes si le premier caractère du commentaire est un retour chariot et si oui tu "déplaces" ton commentaire en le faisant commencer plus loin ? Ou pas du tout ?)
Mon problème est qu'en modifiant le code à ta manière, plus rien ne s'écrit dans mes commentaires ...  
 
Enfin bon, mon code marche, c'est juste hyper lourd mais au moins ça marche donc si vous trouvez plus simple je suis preneur, sinon je le laisserai tel quel !

Dim i As Integer
Dim j As Integer
 
Sheets("Déclaration Réception" ).Select
For j = 5 To 14
    With Range("D" & j)
        .ClearComments
        For i = 1 To 600
            If Range("B" & j).Value = Sheets("Résumé Codage Air" ).Range("B" & i).Value Then
                If .Comment Is Nothing Then Range("D" & j).AddComment
                    .Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
                    .Comment.Shape.OLEFormat.Object.Font.Size = 16
                    .Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
                    .Comment.Shape.TextFrame.AutoSize = True
                    If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 Or Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Or Sheets("Résumé Codage Air" ).Range("I" & i).Value <> 0 Or Sheets("Résumé Codage Air" ).Range("J" & i).Value <> 0 Then
                        
                        If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 Then
                            .Comment.Text Text:=Sheets("Résumé Codage Air" ).Range("G" & i).Value & " EPBIdF"
                        End If
                        
                        If Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Then
                            .Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO", Start:=20
                        End If
                        
                        If Sheets("Résumé Codage Air" ).Range("I" & i).Value <> 0 Then
                            .Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("I" & i).Value & " EPBE", Start:=40
                        End If
                        
                        If Sheets("Résumé Codage Air" ).Range("J" & i).Value <> 0 Then
                            .Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("J" & i).Value & " EPBSE", Start:=90
                        End If
                        
                    Else
                        .Comment.Delete
                End If
            End If
            For Each C In ActiveSheet.Comments
                C.Text Text:=Replace(C.Text, Application.UserName & ":" & Chr(10), "" )
            Next C
        Next
    End With
Next

 
Merci et bonne soirée !

As tu testé mon code ?
J'ai pris soin de laisser ton code en commentaire

En fait tu incrémentes un commentaire d'une cellule
Donc j'incrémente une variable, MonComment

En effet, je n'ai pas mis la ligne pour mettre le commentaire...
Et oui je teste le si le 1er caractere de la variable est un retour chariot, si oui je prends tout ce qu'il y a droite de ce caractere

Ce qui donnerait bêtement (la dernière ligne )

Dim MonComment As String
    MonComment = ""
    
    If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 Or _
        Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Or _
        Sheets("Résumé Codage Air" ).Range("I" & i).Value <> 0 Or _
        Sheets("Résumé Codage Air" ).Range("J" & i).Value <> 0 Then
    
    
        If Sheets("Résumé Codage Air" ).Range("G" & i).Value <> 0 <> 0 Then
            MonComment = Sheets("Résumé Codage Air" ).Range("G" & i).Value & " EPBIdF"
            '.Comment.Text Text:=Sheets("Résumé Codage Air" ).Range("G" & i).Value & " EPBIdF"
        
        End If
        
        
        If Sheets("Résumé Codage Air" ).Range("H" & i).Value <> 0 Then
            MonComment = MonComment & vbCrLf & Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO"
            '.Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("H" & i).Value & " EPBO", Start:=20
        
        End If
        
        
        If Sheets("Résumé Codage Air" ).Range("I" & i).Value <> 0 Then
            MonComment = MonComment & vbCrLf & Sheets("Résumé Codage Air" ).Range("I" & i).Value & " EPBE"
            '.Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("I" & i).Value & " EPBE", Start:=40
        
        End If
        
        
        If Sheets("Résumé Codage Air" ).Range("J" & i).Value <> 0 Then
            MonComment = MonComment & vbCrLf & Sheets("Résumé Codage Air" ).Range("J" & i).Value & " EPBSE"
            '.Comment.Text Text:=Chr(10) & Sheets("Résumé Codage Air" ).Range("J" & i).Value & " EPBSE", Start:=90
        
        End If
    
    End If
 
    'Suppr le retour Chariot du début
    If Asc(Left(MonComment, 1)) = 13 Then MonComment = Right(MonComment, Len(MonComment) - 2)
    .Comment.Text Text:=MonComment

Bonjour,
 
est-il possible de construire un graph de manière automatique selon une certaine sélection de données ?
 
Par exemple j'effectue des calculs sur une feuille après avoir C/C des données de mesure. Je souhaite lancer les calculs et voir tracer les séries de données jusqu'à ce qu'une cellule ait pour valeur zéro, est ce possible de manière "automatique" par EXCEL ?
Merci !

foksa > Tu as 2 choses séparées dans ta question
 
Il y a d'un côté une condition d'arrêt pour un calcul (itératif ?) que tu fais... là il faudrait en dire plus
 
De l'autre côté, le traçage d'un graphe... tu peux très bien tracer ton graphe sur une série de données définie par une plage de cellule (jusque là tout est normal)... et venir modifier les valeurs de tes cellules ensuite, le graphe se rafraichit tout seul. Il te suffit donc de bien définir ta plage de données pour les séries que tu souhaites avoir.

 
Salut Ptit loup,  
 
Il n'y a pas de condition d'arrêt pour un calcul : disons qu'à un moment donné l'évolution des valeurs précédentes fait que le calcul affecte 0 à une cellule.
Et je souhaitais tracer un graph avec cette cellule comme la dernière de la sélection de données, en gros faire une formule "conditionnelle" directement dans la définition des données du graph.  
 
 
 

 
 
Salut à tous,
 
J'aurais besoin de votre aide pour savoir si ce que je veux faire est possible. J'ai ce fichier de planning à destination des RH : https://drive.google.com/file/d/0B7 [...] sp=sharing
 
Et je souhaiterais que les ETP totaux (ligne 12) se calculent automatiquement en fonction du remplissage de couleur effectué et de l'ETP concerné.
 
Ca serait vraiment cool que ça soit possible parce qu'en l'état le total est source d'erreur.
 
Merci d'avance

Et si tu répétais le taux d'ETP dans chaque case? Tu serais beaucoup moins emmerdé.

C'est la première chose à laquelle j'ai pensé mais c'est rébarbatif.

En fait je voudrais que la personne qui utilise ce fichier n'est aucune question à se poser et se contente de colorier les cases

Après j'ai pensé à la mise en forme conditionnelle. Genre elle met un "P" pour présent, ça colorie la case dès qu'elle met "P" et ensuite je fais une formule somme.si en me basant sur le nombre de "P" et ça marche même pour ceux qui ne sont pas à temps plein

Sauf que ça va faire des "p" partout et c'est pas jojo

C'est plus un problème d'interface chaise/clavier alors.
 
Un copier/coller de la cellule d'ETP sur les jours de présence n'est pas très compliqué.

1 couleur, c'est une personne ou c'est un taux d'ETP? (Bleu : 100%, Rose : 80%,....)

C'est surtout qu'en terme de lisibilité c'est pas joli...

Je veux pas enculer les mouches mais répéter l'ETP dans chaque case ça va pas donner un truc présentable.

Et je préfère à la limite ma solution de mise en forme conditionnelle que de c/c l'ETP dans chaque case

Non une couleur = une personne

 
Dommage.

Si c'était ça j'aurais pu faire quoi comme formule?

Bonjour,
 

 
dans ta mfc, tu inclus la couleur de la police identique a celle du fond

Ou alors tu fais une mise en forme conditionnelle par couleur et tu colores les "P" de la couleur correspondante
 
Comme ça tu as des cases unies, et tu peux faire ton "somme.si"

Ah oui pas bête

C'est encore moi
 
Est-ce que vous savez si c'est possible d'afficher une liste de produits entière en fonction d'un choix fait dans une liste déroulante?
 
Je m'explique : je voudrais faire un fichier de commande destiné au magasin de ma boîte.
 
Les différents services devraient aller sur ce fichier, choisir le nom de leur service (genre "pôle désanusseur" ) et en fonction du choix du service, ça afficherait uniquement les produits qu'ils ont le droit de commander.
 
Merci d'avance

Bonjour,
 
Oui, surtout avec un fichier test,  
Et si tu lis mes réponses (3 post plus haut).

Avec une validation des données, tu peux choisir une liste de valeurs (plage de cellule par exemple).
 
Pour ta plage (liste), tu peux indiquer une formule qui dépend du coup de la valeur d'une autre cellule
 
Validation de données -> Autoriser => Liste  
Et dans "Source", tu indiques ta formule avec les plages et la condition, du genre :
=SI(A1="pole désanusseur";$B$1:$B$10;$C$1:$C$10)
 
 
Ensuite, tu peux faire des choses plus complexes, mais c'est pour montrer qu'on peut mettre une formule,...