Contenu récent par belkacem_64

Salut Est-ce que cela vous convient

bonsoir essai

Bonsoir Ton fichier en retour .

Salut essai

Salut 1 - sélectionner un colonne par exemple :J13:J23 2 - dans la barre de formule Placez la souris avant le signe égal (=) 3 - appuyez sur les touches ( Ctrl + shift + Enter ) en même temps

Salut essai

Salut voila la réponse Sub CoptText() Dim MyRange As Range, I As Integer For I = 1 To 10 Set MyRange = Cells(I, 1) Open ActiveWorkbook.Path & "\test.txt" For Append As 1 Print #1, MyRange Close 1 Next End Sub

Salut essai

Salut Essayez ce code Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("E21").Address Then Select Case Target.Value Case Is = "Oui": Aff_Prorata_PMSS Case Is = "Non": Mask_Prorata_PMSS End Select End If End Sub

Bonsoir Une macro pour copier la page d'accueil

Salut essai

Salut quelque chose comme ça Private Sub CommandButton2_Click() With Frame1 .ScrollBars = fmScrollBarsVertical .ScrollHeight = 200 End With End Sub

Salut Max.lander essaye d'utilise cette méthode Range("A1") = Replace(Range("A1") , "," , ".")

Merci Lone-Wolf J'arrive pas a le faire , j'ai essayé plusieurs fois mais ca ne marche pas . je ne sais pas pourquoi

salut un autre code Sub Calcule() Dim sh As Worksheet, shh As Worksheet, _ j As Long, R As Long, _ RR As Long, LsRow As Long, _ C As Range, Ary() Set sh = Sheets("Départ"): Set shh = Sheets("Arrivée") With shh.Range("A2:F" & shh.Range("a" & Rows.Count).End(xlUp).Row + 2)...