152 résultats trouvés

par papysg
20 juillet 2017, 12:19
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

Le problème ne viendrait-il pas du numéro de départ de ta boucle ?

Tu as essayé de remplacé ton "2" par "1" ?
par papysg
20 juillet 2017, 12:13
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

A mon avis ça vient de ton
.Cells.Text(i, 9)
As-tu essayé simplement :
   For i = 2 To Blanks
If .Cells(i, 12).Value = "" And .Cells(i, 9) <> "" Then
            .Cells(i, 12).Value = "English"

        End If
    Next i
par papysg
20 juillet 2017, 11:09
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

Hello tout le monde, J'enchaine avec les questions même si c'est un truc un peu différent cette fois. J'essaye de remplir des cellules vides de la colonne L avec du texte, seulement si les cellules de la colonne I contient du texte. Du coup je me prends la tête depuis ce matin avec le code suivant ...
par papysg
20 juillet 2017, 08:58
Forum : Excel - VBA
Sujet : aide recherche texte dans une selection de cellule
Réponses : 6
Vues : 210

Re: aide recherche texte dans une selection de cellule

A tester un truc dans le genre
Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")
par papysg
19 juillet 2017, 10:37
Forum : Excel - VBA
Sujet : Création Bouton RAZ
Réponses : 2
Vues : 218

Re: Création Bouton RAZ

Bonjour, Dans le fichier Joint J'aimerais créer un bouton RAZ pour : Dans l'onglet "Promo" effacer Les Cellules C2 à C31 et les cellules (menu déroulant) E2 à E31 Dans Les onglets "fiche anticip cass Sec", "fiche anticip frais" et "Fiche anticip cass BB" effacer tout le contenu Et j'aimerai en même...
par papysg
19 juillet 2017, 08:56
Forum : Excel - VBA
Sujet : aide recherche texte dans une selection de cellule
Réponses : 6
Vues : 210

Re: aide recherche texte dans une selection de cellule

Essaye avec ça :
Workbooks.Open Filename:="C:\CHEMINDUFICHIER\NOMDEFICHIER.csv"
J'ai moi, cela fonctionne.

Tu places le code au début de ta procédure.
par papysg
19 juillet 2017, 08:39
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

En effet, j'avais oublié "End If". Il faut aussi que tu déclares ta variable. Essaye en début de code juste après "Sub...()" Dim DernLigne As Long Si tout à fait, suffit de sélectionner la bonne macro mais tu peux la lancer à partir de ce menu ! Bizarre cependant que ça ne fonctionne pas sur ton fic...
par papysg
18 juillet 2017, 16:43
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

Il faut que tu reviennes à la ligne après "Then".

Remplace également "N°Col" par le vrai numéro de colonne : A=1, B=2, C=3.....

Et il faut placer ton code dans un Module.

Il doit commencer par Sub... et finir par End Sub
Sub Remplct_Titre()

[b][i]Code[/i][/b]

End Sub
par papysg
18 juillet 2017, 15:06
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

Alors dans ce cas : DernLigne = Sheets("NOM_DE_LA_FEUILLE").Range("LETTRE_DE_LA_COLONNE_CONCERNEE" & Rows.Count).End(xlUp).Row For i = 1 To DernLigne '(ou numéro de ligne s'il ne change jamais) If cells(i,N°Col).Value ="MR" Or if cells(i,N°Col).Value="Mr" Or if cells(i,N°Col).Value="Mister" Then cel...
par papysg
18 juillet 2017, 14:48
Forum : Excel - VBA
Sujet : Convertir différentes données / formats en un seul
Réponses : 40
Vues : 334

Re: Convertir différentes données / formats en un seul

Bonjour, Pour ton histoire de date, je pense qu'il faut que tu fasses une boucle, tout comme pour ton deuxième problème. Pour ton deuxième problème, tu peux envisager quelque chose dans ce style : DernLigne = Sheets("NOM_DE_LA_FEUILLE").Range("LETTRE_DE_LA_COLONNE_CONCERNEE" & Rows.Count).End(xlUp)....