p

Jeune membre

Inscrit le :17/08/2017
Dernière activité :12/03/2020 à 15:02
Version d'Excel :2007
Messages
48
Votes
1
Fichiers
0
Téléchargements
0

Sujets créés par pierre_br

DateForumSujetExtrait du message
12/03/2020 à 12:29Excel - VBA Modifier nom du fichierJ'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:01Excel - VBANouvelle fenêtre sur 2 écranJ'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...
08/11/2019 à 00:58Excel - VBA N° de colonne variableDans 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 à 01:09Excel - VBA N° de ligneJ'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 à 18:36Excel - VBA N° de ligneJ'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 à 01:30Excel - VBA Recherche d'une valeur dans une autre feuiileJ'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 à 12:44Excel - VBA N° de ligneJe 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&#93...
23/08/2019 à 01:14Excel - VBATours de compétitionJ'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 à 10:56Excel - VBA Macro tirage au sortAu 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 à 14:59Excel - VBA Conditions avec IfJ'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&#93...
02/02/2019 à 14:13Excel - VBA Paste SpecialDans 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 à 19:12Excel - VBA Décaler la copieJ'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...
27/01/2019 à 00:39Excel - VBA Userform non modalJe 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 à 10:29Excel - VBA Désactiver la MacroJ'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...
21/12/2018 à 11:58Excel - VBA N° de cellule variablePour établir une liste je rentre des n° en face d'une liste déjà établie voir fichier joint. Afin de ne pas répéter 100 fois la commande If sheets("saisie_numo").Range("d" & i).Value = "1" Then sheets("saisie_numo").Range("c" & i).Copy sheets("saisie_numo").Range("a1") est il possible de trouver une...
17/08/2017 à 22:27Excel - VBA Plein écran sur une seule feuille du classeurJ'utilise le code ci après pour passer (avec bouton) en mode plein écran. Ce code s'applique à toutes les feuilles du classeur. Je voudrais que le mode plein écran ne s'applique à toutes les feuilles Quel serait la solution pour que cela s'applique seulement à la feuille active? Merci de vos réponse...