7787 résultats trouvés

par h2so4
19 mars 2019, 13:24
Forum : Google Sheets
Sujet : Excel vers Google sheets
Réponses : 2
Vues : 87

Re: Excel vers Google sheets

Bonjour, une proposition function creationevents(){ // Twb= active workbook var Twb=SpreadsheetApp.getActiveSpreadsheet(); var shevents=Twb.getSheetByName('Events'); // on vide la feuille events shevents.deleteRows(2,shevents.getLastRow()); //fr = première ligne qui doit recevoir des données sur eve...
par h2so4
19 mars 2019, 11:01
Forum : Excel - VBA
Sujet : copier/coller en fonction d'une chaîne de caractère
Réponses : 7
Vues : 198

Re: copier/coller en fonction d'une chaîne de caractère

bonjour, voici une correction de ton code. Sub transposeliq() Dim i As Long, lastrow As Long, dc As Long Dim Pays As String Dim Plage As Range, re As Range dc = Worksheets("summary").Cells(5, Columns.Count).End(xlToLeft).Column lastrow = Worksheets("cash").Cells(Rows.Count, "B").End(xlUp).Row - 1 Se...
par h2so4
19 mars 2019, 10:17
Forum : Excel - VBA
Sujet : Erreur d'exécution '9' : mais fonctionne a chaque fois que je relance
Réponses : 21
Vues : 79

Re: Erreur d'exécution '9' : mais fonctionne a chaque fois que je relance

bonjour,

sans avoir essayé de comprendre ce que tu cherches à faire. tu oublies d'(re)initialiser ta variable i.

Essaie ceci
                    i = 0 
                    a = Split(Left(phrase, NCarMax + 1))
par h2so4
18 mars 2019, 09:46
Forum : Excel - VBA
Sujet : Lecture et Ecriture ciblée dans un fichier texte
Réponses : 9
Vues : 67

Re: Lecture et Ecriture ciblée dans un fichier texte

bonjour, essaie ceci monfichier = Application.GetOpenFilename() Open monfichier For Input As #1 ' Probleme While Not EOF(1) Line Input #1, ligne For zs = 1 To NbrNoeud numcod = InStr(1, ligne, "0 " + CStr(Tabl2((zs - 1))) + " CEN/4 -1.000000E+00") If numcod <> 0 Then Sheets("Feuil2").Cells(zs, 1) = ...
par h2so4
17 mars 2019, 18:48
Forum : Excel - VBA
Sujet : Lecture et Ecriture ciblée dans un fichier texte
Réponses : 9
Vues : 67

Re: Lecture et Ecriture ciblée dans un fichier texte

bonjour,

essaie ainsi
numcod = InStr(1, ligne, "0 " & Machaine & " CEN/4 -1.000000E+00")
par h2so4
17 mars 2019, 10:33
Forum : Excel - VBA
Sujet : Explication sur Siz
Réponses : 4
Vues : 57

Re: Explication sur Siz

Bonjour, ce code calcule le nombre d'occurences des nombres (1 à 70) dans un tableau et trie ensuite le tableau en ordre décroissant sur le nombre d'occurences. siz détermine parmi ces 70 nombres, ceux qu'il faut garder pour la suite du traitement (génération de toutes les combinaisons possibles sur...
par h2so4
15 mars 2019, 15:06
Forum : Excel - VBA
Sujet : Addition avec condition
Réponses : 4
Vues : 27

Re: Addition avec condition

bonjour,

une proposition à mettre en s2 et à tirer vers le bas (si tu avoir les totaux pour les autres tranches horaires)

=SI(T2<>T1;SOMME.SI(T:T;T2;R:R);"")
par h2so4
15 mars 2019, 14:55
Forum : Excel - VBA
Sujet : Loop Until "" avec une condition If
Réponses : 4
Vues : 45

Re: Loop Until "" avec une condition If

Merci beaucoup de ta réponse, ça marche parfaitement ! :mrgreen: Avant de clore le topic, je me demandais si tu pouvais m'expliquer comment fonctionne l'ajustement des dates ? Je n'arrive pas à comprendre ce que représente le j, sachant que tu as mis j=1 mais que le calcul suivant dit i+j-1 donc je...
par h2so4
15 mars 2019, 13:42
Forum : Excel - VBA
Sujet : Loop Until "" avec une condition If
Réponses : 4
Vues : 45

Re: Loop Until "" avec une condition If

bonjour, proposition de correction Sub aargh() dl = Cells(Rows.Count, 2).End(xlUp).Row 'nombre de lignes For i = dl To 2 Step -1 'on part de la dernière ligne vers la deuxième If Cells(i, 3) < Cells(i, 4) Then 'date de debut < date de fin nl = Cells(i, 4) - Cells(i, 3) 'nombre de lignes à insérer Ro...
par h2so4
10 mars 2019, 16:38
Forum : Excel - VBA
Sujet : [VBA] Correction code "Replace"
Réponses : 4
Vues : 28

Re: [VBA] Correction code "Replace"

bonjour, une proposition de correction Private Sub CommandButton1_Click() Dim r As Long, c As Long, a As Long, b As Long, f As Long r = Range("A" & Rows.Count).End(xlUp).Row c = Cells(1, Cells.Columns.Count).End(xlToLeft).Column Dim e As Range For Each e In Range(Cells(2, 36), Cells(r, 36)) If e.Has...