| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 27/01/2023 à 00:07 | pierre_br | Limiter une variable | 2) A l'attention de BrunoM45 Certes mes connaissances en développement excel sont très limitées mais je pensais que le but de ce forum était que les plus compétents aident les novices. Vous déclarer que cette ligne c'est totalement faux : Valeur = .Range("k" & Rows.Count).End(xlUp).Row Pour info cet... |
| 26/01/2023 à 23:46 | pierre_br | Limiter une variable | 1) A l'attention de h2so4 Merci pour ta réponse .Cela répond tout à fait à mon problème ayant besoin de scinder la colonne en 4 Cordialement Pierre... |
| 26/01/2023 à 00:55 | pierre_br | Limiter une variable | Bonjour j'utilise la Macro ci après Dans cette configuration For i = 1 To Valeur la variable porte sur toute la colonne Est il possible de limiter par exemple de "d50"à "d"100. Merci pour votre aide Pierre... |
| 24/01/2023 à 12:19 | pierre_br | Associer un nom à un numero | Mes connaissances en développement excel sont très limitées et je n'ai aucune compétence pour mettre en doute les avantages de ta proposition. A chaque utilisation le nombre d'équipes change et j'ai cru comprendre que cela m'obligeait à changer la structure du tableau et c'est cela qui pose problème... |
| 23/01/2023 à 20:59 | pierre_br | Associer un nom à un numero | Merci pour ta réponse rapide. Je ne pense pas que RECHERCHEV réponde à ma recherche Je te joins mon fichier excel avec la présentation finale. le nombre d'équipes est variable d'une fois sur l'autre allant de 12 à 32. J'ai tenté avec la variable "i" mais je cale. (voir la macro jointe) Merci de me t... |
| 23/01/2023 à 11:39 | pierre_br | Associer un nom à un numero | Bonjour, Ne parvenant pas à trouver la formule VBA je fais appel à votre aide. En colonne "e" et "h" j'ai des numéros d'équipe 7 - 11-10 etc... En colonne "p" j'ai les noms de ces équipes. Je souhaite afficher ces noms dans les colonnes "f" ou "i" Si en "e2" j'ai le numéro 7 je dois afficher en "f2"... |
| 07/11/2022 à 00:50 | pierre_br | Macro vers pc à distance | Bonsoir je reviens avec beaucoup de retard sur ta proposition de macro. Je suis un peu perdu et à priori cela ne répond pas à ce que je recherche. Je fais partie d'une association et je gère des concours. Sur ce que j'appelle le Pc maitre je gère les les inscriptions des participants, je lance les d... |
| 31/10/2022 à 19:28 | pierre_br | Macro vers pc à distance | Je gére un Pc à distance avec Anydesk via le réseau LAN avec l'adresse IP 169-254-236-36 Sur le PC maitre j'utilise la macro suivante Sur le PC à distance j'utilise la macro ci-après Y a-t il la possibité de réunir les 2 macros en une seule que je lancerais du Pc maitre ( en utilisant l'adresse IP ... |
| 15/05/2022 à 16:24 | pierre_br | Cellule Non numérique | Ca fonctionne Merci... |
| 15/05/2022 à 15:54 | pierre_br | Cellule Non numérique | Je calle sur quelque chose de (sans doute ) simple. Si la cellule B6 n'est pas numérique je veux appeler une macro Sub no_terrain() Sheets("64_4t").Select If Not IsNumeric(Cells(b, 6).Value) = True Then Call ecr_resul2 End If End Sub merci de votre aide... |
| 12/03/2020 à 15:01 | pierre_br | Modifier nom du fichier | Ca fonctionne Merci pour ton aide Pierre... |
| 12/03/2020 à 12:29 | pierre_br | Modifier nom du fichier | J'utilise la macro suivante pour gérer 1 affichage différent sur 2 écrans en avant dernière ligne je rappelle le nom du fichier. Je gère ainsi 6 affichages différents. je dois également changer régulièrement le nom du fichier. Pour éviter cela j'ai essayé de remplacer Windows("concours_4p64.xlsm:1")... |
| 18/11/2019 à 16:01 | pierre_br | Nouvelle fenêtre sur 2 écran | J'utilise la macro ci-après pour ouvrir une feuille sur une nouvelle fenêtre. et ensuite avec la souris je glisse cette nouvelle fenêtre sur l'écran 2. Existe t-il une commande VBA qui permette de lancer l'ouverture de cette nouvelle fenêtre directement sur l'écran 2. Sub ecran2() ActiveWindow.NewWi... |
| 09/11/2019 à 10:27 | pierre_br | N° de colonne variable | Merci pour ton aide. je suis arrivé au résultat que je souhaitais J'ai modifié : Col = . Range("as34").Column par Col = Range("as34").Value ce qui me permet de récupérer la valeur de la cellule A titre d'info je t'adresse la Macro que je voulais créer. Encore merci Pierre Sub correction3t() Applicat... |
| 08/11/2019 à 12:08 | pierre_br | N° de colonne variable | Merci pour ta réponse j'ai essayé la syntaxe ci- après En lançant la macro je n'ai pas de message d'erreur le curseur se positionne bien en "AN40" mais je ne récupère pas la valeur Sans doute une erreur de syntaxe Merci pour ton aide Pierre Sub attente_1() With Sheets("64_4t") Application.ScreenUpda... |
| 08/11/2019 à 00:58 | pierre_br | N° de colonne variable | Dans la macro ci aprés est il possible de définir le n° de colonne avec une variable comme pour Range du style numb = column("b46") ce qui pourrait donner Range("numb" & num).Copy Sub attente_1() With Sheets("64_4t") Application.ScreenUpdating = False Dim num As Integer num = Range("c46").Value Shee... |
| 05/11/2019 à 18:44 | pierre_br | N° de ligne | Merci pour tes réponses. les 2 macros répondent à ma demande. je retiens la 2ème cdt Pierre... |
| 05/11/2019 à 01:09 | pierre_br | N° de ligne | J'utilise la macro suivante Dans cette configuration pas de souci. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range("c45") = 32 Then If Target.Column = 15 And Target.Cells.Count = 1 Then Range("c46").Value = Target.Row End If End Sub Si j'appelle une Macro P... |
| 24/10/2019 à 23:51 | pierre_br | N° de ligne | Cela fonctionne , j'ai juste repréciser la feuille devant. Merci Pierre_br... |
| 24/10/2019 à 18:36 | pierre_br | N° de ligne | J'utilise la macro ci-après [ i]Sub rectif() End Sub Est il possible d'ajouter une commande qui donne le n° de ligne du résultat et copier le n° de ligne en Range("an38") Apprenti en VBA : Merci pour votre aide Pierre_br... |
| 01/09/2019 à 11:13 | pierre_br | Recherche d'une valeur dans une autre feuiile | Cela fonctionne Merci pour le dépannage Pierre br... |
| 01/09/2019 à 01:30 | pierre_br | Recherche d'une valeur dans une autre feuiile | J'utilise la macro suivante pour rechercher une valeur Sub recherche() Dim Mot As Variant Dim AddresseMot As String With Sheets("64_4t").Range("ai7:ao43") Set Mot = .Find(Sheets("resultat").Range("bo1").Value, LookIn:=xlValues) If Not Mot Is Nothing Then AddresseMot = Mot.Address Do Mot.Interior.Col... |
| 26/08/2019 à 21:19 | pierre_br | N° de ligne | Ok merci pour l'aide... |
| 26/08/2019 à 17:32 | pierre_br | N° de ligne | Je souhaite récupérer le n° de la ligne. si je clique sur c15 je veux récupérer 15 en I3 d'avance Merci... |
| 26/08/2019 à 14:25 | pierre_br | N° de ligne | Merci de ta réponse. Je suis novice en vba et je ne parviens pas à trouver la bonne syntaxe pour que ça fonctionne. Merci de compléter Pierre br... |
| 26/08/2019 à 12:44 | pierre_br | N° de ligne | Je souhaite modifier la macro ci-après pour récupérer non pas la valeur de la cellule mais le numéro de ligne de la cellule. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then If Target.Cells.Count = 1 Then Target.copy Destination:=[I3]... |
| 23/08/2019 à 11:01 | pierre_br | Tours de compétition | Merci pour l'info Malheureusement cela ne correspond pas à ma recherche et ne me permet pas de gérer les résultats en fonction du goal average Cordialement Pierre Br... |
| 23/08/2019 à 01:14 | pierre_br | Tours de compétition | J'utilise la macro jointe "SelectionAleatoireDesTours " pour organiser des concours de pétanque. Cette macro permet d'organiser des parties ( de 4 à 6 ) sans que les équipes se rencontrent plus d'une fois. Ce tirage dit à la mêlée ne tient pas compte du résultat des parties précédentes. Il arrive au... |
| 17/03/2019 à 15:00 | pierre_br | Macro tirage au sort | Super ça répond tout à fait à mon attente. Lorsque je suis à 4 ou 6 équipes 2 tours me suffisent Merci pour ton aide Pierre... |
| 17/03/2019 à 12:18 | pierre_br | Macro tirage au sort | J'appelle plantage le fait que la macro tourne sans s'arreter. merci de ton aide Pierre... |
| 17/03/2019 à 10:56 | pierre_br | Macro tirage au sort | Au sein d'une amicale de pétanque j'utilise depuis au moins 10 ans une macro pour effectuer des tirages d'équipes pour des tournois. Cette macro fonctionne trés bien de 10 équipes à 128. Mais avec 8 équipes la macro se plante une fois sur deux et se plante toujours avec 6 ou 4 équipes. J'ai tenté de... |
| 06/02/2019 à 16:00 | pierre_br | Conditions avec If | Desolé Il faut lire onglet 64_4t et non résultat A + Pierre... |
| 06/02/2019 à 15:57 | pierre_br | Conditions avec If | Ci joint fichier En onglet Resultat Colonne A bouton Copie Resultat Le premier plante et le second fonctionne Merci de regarder Pierre... |
| 06/02/2019 à 14:59 | pierre_br | Conditions avec If | J'utilise la macro suivante suggérée par un utilisateur du forum. Sub copy_result2() Application.ScreenUpdating = False Dim Valeur As Long With Sheets("64_4t") Valeur = .Range("bm" & Rows.Count).End(xlUp).Row For i = 1 To Valeur If .Range("u" & i) < 14 And Range("u" & i) > 0 Then '[/b]... |
| 02/02/2019 à 17:13 | pierre_br | Paste Special | Merci pour votre aide Cela me fait gagner du temps et beaucoup de précision. Bon Week end... |
| 02/02/2019 à 15:51 | pierre_br | Paste Special | [quote=curulis57 post_id=731341 time=1549114133 user_id=38244] Salut pierre_br, puisque tu ne veux que les valeurs, tu peux passer celles-ci directement sans COPY : plus facile, plus rapide! Re bjr Ce que tu me proposes fonctionne trés bien mais pour moi ça se complique sur la macro suivante... |
| 02/02/2019 à 14:13 | pierre_br | Paste Special | Dans la macro suivante je souhaiterais faire un coller "PasteSpecial" je ne trouve pas la bonne formulation Merci de m'aider Pierre_br Sub copy_tabl1() Application.ScreenUpdating = False Dim Valeur As Long With Sheets("pre_tab") Valeur = .Range("m" & Rows.Count).End(xlUp).Row For i = 1 To Valeur If... |
| 31/01/2019 à 22:57 | pierre_br | Userform non modal | Re Bonsoir super ça fonctionne Merci Pierre... |
| 31/01/2019 à 22:43 | pierre_br | Décaler la copie | Super ça fonctionne Merci... |
| 31/01/2019 à 22:22 | pierre_br | Userform non modal | ("+5") ni + ("5) ne fonctionnent. merci de revoir Pierre... |
| 31/01/2019 à 21:20 | pierre_br | Userform non modal | J'ai trouvé la solution : voir la 2ème ligne je ne trouvais pas la syntaxe Destinaton .Range("k" & i).copy .Range("bp" & .Range("d" & i)) .Range("k" & i).Copy Destination:=sheets("resultat").Range("bp" & .Range("D" & i)). Par contre je suis à la recherche de la solution pour décaler ma copie. Avec c... |
| 31/01/2019 à 21:01 | pierre_br | Décaler la copie | Ce que tu me proposes ne correspond pas à ce que je recherche. Dans ma formule actuelle .Range("c" & i).Copy Destination:=sheets("resultat").Range("a" & .Range("D" & i)) Je copie le contenu de "c" si en "D10" je saisis "20" le contenu de "C10" est copié en "A20 " et je souhaite le copier en A25 Ce q... |
| 31/01/2019 à 19:12 | pierre_br | Décaler la copie | J'ai la macro suivante Sub liste2() Application.ScreenUpdating = False Dim Valeur As Long With sheets("saisie_numo") Valeur = .Range("k" & Rows.Count).End(xlUp).Row For i = 1 To Valeur If .Range("D" & i) < 104 And Range("D" & i) > 0 Then .Range("c" & i).Copy Destination:=sheets("resultat").Ran... |
| 28/01/2019 à 14:50 | pierre_br | Userform non modal | Les modifications que vous avez apportées me permettent d'afficher userform comme je le souhaitais. Merci pour votre aide. l'instruction for ... next je l'ai découverte depuis peu. je l'ai mis en place sur ma macro. Par contre je ne trouve pas la syntaxe pour copier directement sur la feuille "resul... |
| 27/01/2019 à 10:29 | pierre_br | Userform non modal | Ci joint le fichier Pour lancer la Macro : Aller dans l'onglet "66_128 eq" et en k70 bouton copie. Merci de votre aide Pierre BR... |
| 27/01/2019 à 00:39 | pierre_br | Userform non modal | Je lance la macro ci après Dans les propriétés de Userform j'ai déclaré modal = false. Le userform s'affiche bien pendant l'exécution de la macro le problème est que l'userform s'affiche sans couleur et sans texte. Merci de m'aider à solutionner . Pierre br... |
| 15/01/2019 à 23:38 | pierre_br | Désactiver la Macro | Super cela correspond tout à fait à ce que je recherchais Merci Pierre... |
| 15/01/2019 à 20:30 | pierre_br | Désactiver la Macro | J'ai sans doute mal formulé ma demande. Ma question ne porte nullement sur la copy des cellules mais comment copier des cellules qui sont protégées par la macro suivante Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("c7:c200,e7:e200"), Target) Is Nothing Then Ta... |
| 15/01/2019 à 13:09 | pierre_br | Désactiver la Macro | Re bonjour J'ai besoin de la formule suivante Sub copy1() ' Exit private sub ????????????? Range("C6:E24").Select Selection.Copy Sheets("Feuil3").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues call private sub ?????????? End Sub pouvez vous m'indiquer la syntaxe exacte D'avanc... |
| 15/01/2019 à 10:29 | pierre_br | Désactiver la Macro | J'utilise la Macro ci-après pour protéger certaines cellules Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("c7:c200,e7:e200"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub Est il possible de désactiver cette macro le temps de copier des cell... |