| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 07/04/2013 à 08:41 | lo1992 | VBA - LOI DE STUDENT | En lisant ton post, j'ai du faire à peu près les têtes suivantes: Un peu ardu ta demande, du coup j'ai tout simplement regarder sur le site de Microsoft. Voici le lien: J'espère que cela t'aidera (j'avoue que je n'ai pas tout compris). Cordialement... |
| 06/04/2013 à 08:52 | monnom2 | Décaler un tableau d'une colonne vers la droite via VBA | En rajoutant dans ton code Columns("A:A").Insert Shift:=xlToRight... |
| 04/04/2013 à 18:21 | monnom2 | Supprimer la dernière colonne d'un tableau via macro VBA | Sur la version 2010 je n'ai pas de souci particulier. Essaie ces quelques lignes. colonne = ActiveSheet.UsedRange.Columns.Count For i = colonne To 1 Step -1 If Cells(1, i) = "Total général" Then Columns(i).Delete Next i... |
| 04/04/2013 à 17:46 | monnom2 | Supprimer la dernière colonne d'un tableau via macro VBA | Une solution possible (tester sous Excel 2010) DerniereColonne = ActiveSheet.UsedRange.Columns.Count ' trouve la dernière colonne utilisée Columns(Val(DerniereColonne)).Delete Shift:=xlToLeft ' supprime la dernière colonne ou en plus condensé: Columns(Val(ActiveSheet.UsedRange.Columns.Count)).Delete... |
| 01/04/2013 à 15:33 | patrick33 | Aide sur macro | Bonjour vba-new, cela fonctionne parfaitement. J'ai juste modifier la macro pour supprimer le remplissage en couleurs des cellules. Merci encore. NB: si quelqu'un pouvait me répondre sur la copie des formats de cellules avec la connexion ADO, je suis preneur... |
| 31/03/2013 à 18:40 | patrick33 | Aide sur macro | Avec la macro suivante, j'effectue la comparaison de 2 feuilles Excel sur 2 fichiers différents ( qui ont exactement la même structure) et qui correspondent à un suivi de charge de production. Je récupère les valeurs d'une feuille "Charge" d'un fichier réalisé le lundi que je colle dans un autre fic... |
| 25/03/2013 à 18:40 | Youppi99 | Macro pour insérer 2 lignes entre chaque ligne dans un Range | Essaie ceci: Sub InsertionLigne() Dim i As Integer For i = 650 To 17 Step -1 Cells(i + 1, 1).Select ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert Next End Sub Dans cet exemple, tu insères 2 lignes. Modifie la valeur entre parenthèse après Resize pour insérer plus ou moins de lignes. Cordialemen... |
| 19/03/2013 à 18:29 | iliyes | Couper en 2 | Utilise les fonctions DROITE et GAUCHE. Par exemple, si ton texte est en A1: - dans A2, tu mets = DROITE(A1;3); - dans la cellule B2, tu mets =GAUCHE (A1;7). Cordialement... |
| 18/03/2013 à 18:35 | Bexcel | Cacluler nombre jours ouvrables | Regardez ce lien Je pense qu'il est suffisamment clair pour répondre à vos questions. Cordialement... |
| 16/03/2013 à 18:34 | Polikina | Sélectionner le plus grand chiffre d'une liste tiré au hasar | Tu peux aussi utiliser la fonction MAX: = MAX (ta plage de cellule) par exemple = MAX(A1:D10) Cordialement... |
| 13/03/2013 à 19:17 | chuckee | Rechercher valeur dans une liste pour obtenir valeur de la c | Peut-être un début de réponse,à tester et adapter suivant besoin: Sub recherche() dercellule = Range("A65536").End(xlUp).Row 'dernière cellule non vide valeur = 1500 ' valeur recherchée For i = 1 To dercellule 'on boucle sur toutes les cellules If Range("A" & i).Value = valeur Then MsgBox Range("A"... |
| 13/03/2013 à 18:06 | aigledatlas | Sortir que les chiffres d'une colonne | A tester: Sub extraireValNume() Dim i As Integer Dim j As Integer Dim nb As Integer Dim Cible As String, Resultat As String Dim Nombre As Double For j = 1 To 5 Cible = Range("A" & j).Value Resultat = "" For i = 1 To Len(Cible) If IsNumeric(Mid(Cible, i, 1)) Then Nombre = Val(Mid(Cible, i, Len(Cible)... |
| 10/03/2013 à 19:17 | aikamaru | Problème pour gérer l'ajout de clients | Rajoute cette ligne: derligne = Range("A1").End(xlDown).Row + 1 qui te donnera la dernière ligne vide puis modofieRange("A3") = TextBox_num_dossier.Value par Range("A" & derligne)= TextBox_num_dossier.Value etc, etc...... |
| 23/02/2013 à 17:30 | tonio1009 | Derivation | La vitesse est la dérivée de la position par rapport au temps. As-tu une courbe donnant la position des points en fonction du temps ? C'est une courbe plutot de type linéaire? polynomiale? Il existe des fonction du type DROITEREG( ). Cordialement... |
| 23/02/2013 à 17:20 | Bexcel | Cacluler nombre jours ouvrables | Vois le lien Cordialement... |
| 23/02/2013 à 11:55 | francis77777 | Afficher / Masquer colonnes avec un bouton | Je ne peux pas charger (voir mon post " Fichier corrompu") mais tu peux essayer la macro suivante avec un ToggleButton Private Sub ToggleButton1_Click() With ToggleButton1 If .Value = True Then Columns("H:S").Hidden = True ElseIf .Value = False Then Columns("H:S").Hidden = False End If End With End... |
| 23/02/2013 à 09:20 | patrick33 | Fchier corrompu | Depuis quelques jours, je ne peux plus charger de fichier joints sur les posts du forum. Jusque là , je n'avais aucun problème. Maintenant, à chaque fois que je veux ouvrir un fichier j'ai un message "impossible d'ouvrir le fichier .Fichier corrompu". Quelqu'un peut m'aider ? Je ne vois pas d'ou cel... |
| 19/02/2013 à 20:35 | captainejack | Formule avec SI | Je n'ai pas de problème pour ouvrir le fichier sur mon pc. Je le renvoie. Si encore des problèmes de lecture, j'ai mis dansla cellule F8 =SI(ESTVIDE(D8);"";SI(ESTVIDE(E8);"pleine";"en cours")) Si D8 est vide--> état bouteille pas indiqué Si date dans D8 et pas de date dans E8--> état bouteille... |
| 18/02/2013 à 20:34 | captainejack | Formule avec SI | A voir... |
| 17/02/2013 à 17:32 | captainejack | Formule avec SI | Tu veux indiquer "plein" lorsque tu as une date en B1 et C1 ? ou "plein" lorsque tu as une valeur dans C1, quelque soit la valeur de B1 ... |
| 17/02/2013 à 17:09 | captainejack | Formule avec SI | Peut-être avec =SI(ESTVIDE(B1);"";"Vide") dans A1... |
| 12/02/2013 à 19:08 | PUSHKAR | Modifications programme sous VBA | Bonjo e bienveue sr le forum, si tu souhaite que l'on modifie ton programme il faudrai peut-être nous poster ton fichier. Cela serai plus simple. Regarde dans "Ajouter des fichiers joints". Tu pourrai aussi utiliser les fonctions comme SOMMPROD plutot qu'une macro . A voir. Cordialement... |
| 07/02/2013 à 17:38 | Apto | Tableau | Un petit fichier peut-être ? Tu auras plus de chance d'avoir des réponses. Tu as penser à utiliser SOMMEPROD ... |
| 07/02/2013 à 15:35 | Greg.leo | [VBA] sauvegarder en format .xlsm | Bonjour essai avec : With ActiveWorkbook .SaveAs Filename:=chemin & ActiveSheet.Range("A6"), FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False... |
| 07/02/2013 à 07:15 | alexbej | Macro Écart-Type sous condition - Excel 2007 | Peut-être qu'une macro n'est pas nécessaire, Excel propose peut-être une fonction qui pourrai répondre à ton problème. Vois le lien suivant Cordialement... |
| 04/02/2013 à 20:48 | karimaxwell | Calculs commissions commerciaux | Un petit fichier aurait été utile. Voir l'essai ci-joint... |
| 03/02/2013 à 18:53 | chb44 | Affcher les cellules contenant une liaison | Dans édition tu cliques rechercher puis tu rentre [ Lorsqu'un classeur est fermé, les liaisons avec ce classeur sont entrées dans les formules avec 2 crochets [ ] Dans options tu sélectionnes la feuille ou le classeur pour effectuer ta recherche; puis "regarder dans formule" tu sélection... |
| 03/02/2013 à 18:33 | rebila57 | Graphique de points avec fonction | Un test en fichier joint. Cordialement... |
| 27/01/2013 à 17:53 | juju34 | Insertion de données d'une colonne de manière successive | Ci-joint un essai. Cordialement... |
| 27/01/2013 à 10:09 | Max18 | Calculer les points ? | Tu peux aller voir sur ce même site https://www.excel-pratique.com/fr/vba/controles.php le cours VBA. N'étant pas un as en VBA, c'est dans cette partie que je me suis former aux différents controles... |
| 26/01/2013 à 18:54 | ricktnt | Macro reset | Cela devrai te convenir: Sub Macro4() 'éfface les données Range("J10:L161").ClearContents End Sub... |
| 26/01/2013 à 18:40 | caro44 | Nb de cellules dont résultat compris entre valeurs en % | NB.SI s'applique sur une plage de cellule. Dans ta simplification, tu ne tiens compte que de la valeur de J2, cela revient à utiliser la fonction SI soit =SI(J2<=20%;1;0)... |
| 22/01/2013 à 17:26 | Mar | Calcul différent suivant conditions | Déjà dans F8 rentre =SI(F6>35;F6-35;0) Pour la suite, à toi de jouer... |
| 20/01/2013 à 12:09 | wywy22 | Nombre de résultats identiques | Essaie avec ceci =NB.SI(A1:A13;"0,0"). N'ayant pas de fichier (à poster lors de tes prochaines demandes, c'est mieux), A1:A13 est ta colonne de résultats "0,0" est le score que tu recherche. NB: ta colonne de résultat doit être sous le format texte... |
| 19/01/2013 à 10:55 | dudul40 | Plusieurs fonction sur une cellule | Peux-tu poster un petit fichier ... |
| 19/01/2013 à 10:53 | julien35000 | Calcul heures sup | ... |
| 19/01/2013 à 09:27 | julien35000 | Calcul heures sup | Voir fichier joint. Cordialement... |
| 19/01/2013 à 08:57 | djez | Conversion de chiffre en text | Je ne suis pas sur de comprendre (un fichier aurai pu aider) mais tu peux utiliser la fonction TEXTE qui permet de convertir un nombre en texte en y appliquant un format... |
| 16/01/2013 à 18:49 | rocket4 | Comptage du nombre de cellules avec critère | Avec la fonction NB.SI. en B1 =NB.SI(A1:J1;"A") Cordialement... |
| 16/01/2013 à 18:05 | mattjol | 2 couleurs dans une cellule | A ma connaisance, une cellule est "indivisible". Après je pense que l'on peut bidouiller peut-être quelque chose avec 2 formes triangulaires qui recouvre la cellule mais bon..... Quel est la finalité de ta demande ... |
| 16/01/2013 à 17:40 | djez | Compter le nombre d'occurence | Test ceci: Sub recherche() Dim recherche As String Dim compteur As Integer Dim i As Integer Dim dercell as integer recherche = InputBox("Chaîne recherchée ?") Dercell = Range("A1").End(xlDown).Row For i = 1 To Dercell If Right(Range("A" & i).Value, 4) Like recherche Then compteur = compteur + 1 End... |
| 16/01/2013 à 16:33 | mimi41 | Compteur Excel | Voir le fichier joint et à adapter à ton cas. J'ai utiliser la fonction NB.SI NB: pour tes prochaines questions, merci de donner un petit fichier... |
| 15/01/2013 à 19:14 | thivame | Ajouter des jours a une date sous certaines conditions | Un petit fichier peut-être ... |
| 09/01/2013 à 21:26 | darkvad | Calcul d'une somme en fonction de plusieurs critères | Voir fichier Traité avec SOMMEPROD... |
| 09/01/2013 à 18:49 | zikos | Loi exponentielle sur Excel | Un peu pointu pour moi mais regarde ceci: http://office.microsoft.com/fr-fr/excel-help/fonction-loi-exponentielle-HP010062497.aspx cela répondra peut-être à tes questions (à moins que tu ne l'ai déjà fait)... |
| 09/01/2013 à 18:30 | Cappe Pierre | Imprimer un UserForm | Peut-être en masquant le CommandButton1 lorsque tu imprimes le userform. Il faudrai peut-être utiliser la propriété visible et la mettre à false lors de l'impression de l'userform, et à true le rezste du temps. Vois avec "UserForm1.CommandButton1.Visible = False" je ne sais pas ce que cela peux donn... |
| 08/01/2013 à 17:59 | Cappe Pierre | Imprimer un UserForm | A tester, e naffectant à un bouton de commande... |
| 08/01/2013 à 17:40 | THE | Suppression des lignes dont la valeur est égale à Zéro | Par exemple: Sub suppressionzero() Dim i As Integer Dim Dercell As Integer Dercell = Range("A5").End(xlDown).Row - 1 For i = Dercell To 5 Step -1 If Cells(i, 2) Like "0" Then Rows(i).Delete Next i End Sub Cordialement... |
| 07/01/2013 à 22:02 | cachou84 | Gestion appel telephonique | Utilise la fonction =RECHERCHEV voir fichier joint, a adapter à ton cas et ton fichier. NB: pour les prochains post, donne un petit fichier. cordialement... |
| 07/01/2013 à 20:04 | Nevyan51 | Macro Archivage d'un formulaire | Merci de poster un fichier (sans donnée "confidentielle") pour espérer avoir une réponse qui corresponde à ta demande... |