Résultats de la recherche

Re : Macro pour dupliquer un onglet en changeant un élément d'une cellule précise Bonjour le Forum et moibrazu Peut être : Sub Macro1() ' ' Macro1 Macro ' dupliquer onglet ' Sub TestAjoutFeuilles() ' For NbO = 168 to 174 Step1 Sheets(Sheets.Count).Copy...

Re : Case à cocher macro Bonjour le Forum et marcodebute350 Sheets("COMPARATIF").Columns("H").EntireColumn.Hid den = False Peut etre : Sheets("COMPARATIF").Columns("H").EntireColumn.Hidden = False

Re : Le premier mot Merci excfl

Bonjour le Forum J'ai : "='Feuille d''un controle'!C6" qui me donne "Clé à choc" je voudrais : "Clé" Bien sur je voudrais la meme chose si 'Feuille d''un controle'!C6 contient un autre mot composé ou pas D'avance merci

Re : Suppression ligne condition Bonjour le Forum et fileofish For I = 1 to 100 Next I Le pas est de +1 For I = 1 to 100 Step 5 Next I Le pas est de +5 For I = 100 to 1 Step-1 Next I Le pas est de -1 Ect....

Re : [Résolu] - Recherche de N° de ligne par rapport à la formule dans une cellule Merci a vous deux, j'ai donc fait une complie de vos réponsesDim a As String For lg = 2 To Range("P1").Value a = Sheets("Imprime").Range("A" & lg).Formula 'Range("M" & lg).Value = Mid(a, 12, Len(a))'ERIC S...

Re : [Résolu] - Recherche de N° de ligne par rapport à la formule dans une cellule Merci Dugenou, mais je ne peut meme pas lire votre fichier xlsm ici au boulot certain poste, comme le mien sont restés en XP Pro ! Encore merci a tous !

Re : Recherche de N° de ligne par rapport à la formule dans une cellule Merci ERIC S j'ai les infos que je voulais grace a votre aide :Dim a As String For lg = 2 To Range("P1").Value a = Sheets("Imprime").Range("A" & lg).Formula Range("M" & lg).Value = Mid(a, 12, Len(a) - 11) Next...

Re : Recherche de N° de ligne par rapport à la formule dans une cellule Bonjour ERIC S et le Forum For lg = 2 To 1000 Range("M" & lg) = Sheets("Imprime").Range("A" & lg).Formula Next ne me mets pas la formule qui est en A mais sa valeur ! Merci quand meme.

Bonjour le Forum J'aimerais connaitre le N° de la ligne de référence de la cellule qui est colonne A : Sur l'onglet "Imprime" en : A2 j'ai =Registre!A2 en M2 je voudrais 2 A3 j'ai =Registre!A4 en M3 je voudrais 4 A4 j'ai =Registre!A3 en M4 je voudrais 3 A5 j'ai =Registre!A23 en M5 je...

Re : Recap sur X onglets Bonjour Dranreble et leForum J'ai enfin trouvé se que je voulaisOption Explicit Private Sub Worksheet_Activate() [A3:J31000].ClearContents Dim derlig Dim DL, Te(), Le As Long, Ts(1 To 10000, 1 To 7), Ls As Long, I As Long, NF As String, _ F As Worksheet...

Re : Recap sur X onglets Bonjour Branreb et le Forum, J'ai mis un certain temps pour comprendre qu'il ne valait pas d’autre onglet qui commençait par S Comment faire pour ne pas prendre en compte la ligne Si AA=0 et mettre le numéro de semaine même si dans la plage copier il n'y a pas de...

Re : Recap sur X onglets Bonjour Branreb et le Forum, Je ne sais pas mettre cela en code !

Re : Recap sur X onglets Re bonjour Branreb et le Forum Comment intégrer cela à la Macro qui ce déclenche lors du changement d’onglet :Private Sub Worksheet_Activate() [A1:J1000].ClearContents 'Efface tout For I = Sheets.Count - 3 To 6 Step -1 'Tous les onglets...

Re : Recap sur X onglets Bonjour Dranreb et le Forum Merci pour cette solution mais la récupération doit être faite si AG <> "" et AC <> "" De plus les cellules A sont fusionnés ! (c'est une adaptation) D’avance merci

Bonjour le Forum Je reviens vers vous car je bricole une recape automatique dont voici le code :Private Sub Worksheet_Activate() [A1:J1000].ClearContents 'Efface tout For I = Sheets.Count - 3 To 6 Step -1 'Tous les onglets de l'avant dernier au 5 eme nf =...

Re : Ajustement d'une formule Bonjour le Forum et jeyl35 =CHOISIR(EQUIV(DATEDIF(C2;C3;"m");{0;2;3;6;13;18});'Retour absence > 1 mois'!B3;'Retour absence > 2 mois'!B3;'Retour absence 3 à 5 mois'!B3;'Retour absence 6 à 8 mois'!B3;'Retour absence de 9 à 11 mois'!B3;'Retour absence de 12 à 17...

Re : Regrouper les infos de plusieurs fichiers sur une feuille Re Bonjour le Forum Sub RapatriePC() Dim Ligne As Long, Cible As Long, Deb As Long Dim Fichier As String, DerniéreSem As Long lg = 1 With ThisWorkbook.Sheets("Recap") .Visible = True...

Re : Regrouper les infos de plusieurs fichiers sur une feuille Bonjour camarchepas et le Forum Je reviens vers vous comme promis, Je voudrais limiter cette importation a un certain nombre de semaine voici les noms des fichiers pour l'instant1501_0000023254_00001_01.csv...

Re : Calcul si dans le mois. Bonjour le Forum Merci cela fonctionne très bien !