Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : Transformation Excel en Txt
Salut,
Le cadrage se fait a droite ou a gauche ou les 2 selon la colonne.
Par exemple colonne B:
0005 devient ......0005 ou 0005...... (les points seraient de "blancs" biensur)
Re : vba : comportement différent en fonction version xls
Salut,
Comme ceci :
If Application.version = "12.0" then
userform1.top = range("c1").top
Else
userform1.top = range("b1").top
End If
Re : [VBA] Supprimer colonnes identiques
Salut,
Une autre version:
Option Explicit
Sub Masque()
Dim CptCol As Integer
Dim Serie1 As String, Serie2 As String
Serie1 = Join(Application.Transpose(Range("A3:a23")))
For CptCol = 2 To 23
Serie2 =...
Re : [VBA] Obligé de valider manuellement pour afficher le résultat
Dans ton code tu dis que tu vas utiliser une formule du style L1C1
...FormulaR1C1=...
Mais dans la formule tu indiques des references de colonne du style A, B, C.....
extract!A:A,CONCATENATE(R1C5,RC[-3]),extract!K:K
Soit tu...
Re : [VBA] Obligé de valider manuellement pour afficher le résultat
Salut,
Pas certain,mais tu melanges Formule style L1C1 et A1:
Peut etre en mettant:
Range("E2:E" & Range("D65536").End(xlUp).Row).FormulaR1C1 = "=SUMIF(extract!C1,CONCATENATE(R1C5,RC[-3]),extract!C11)"
Re : Choix d'un classeur par msgbox à partir d'une macro
Salut,
Au temps pour moi, je n'avais pas tenu compte du fait que tu ne serais pas forcement sur le lecteur K.
Ca devrait mieux passer avec:
ChDrive "k"
ChDir "K:\ch1\sch1\"
nomclasseur = Application.GetOpenFilename("Fichiers...
Re : Relier des nombres (dans un tableau)
Salut,
Juste pour le plaisir:
Option Explicit
Sub Scan()
Dim Zone As Range, Cellule As Range
Dim ValOk As String
Dim Ligne As Integer, Colonne As Integer
Application.ScreenUpdating = False
Set Zone =...
Re : Choix d'un classeur par msgbox à partir d'une macro
Salut,
Quelque chose comme ca... ChDir "K:\ch1\sch1\"
nomclasseur = Application.GetOpenFilename("Fichiers Excel,*.xls")
If Dir(nomclasseur) <> "" Then
.
.
Ton code
.
.
End If
Re : supprimer ligne contenant X ou Y dans colonne A
Salut,
A verifier, mais il y a de fortes chances que dans la colonne 5 tu ais
une valeur d'erreur (#N/A ou autres).
Verifie cela.
Re : Limites de la boucle "For...Next" VBA
Salut a tous,
En passant par 2 colonnes intermediaires et des formules toutes simples
ca doit etre quasi instantanne (enfin si j'ai bien compris...)
Sub seq1()
Application.ScreenUpdating = False
Range("IU1").Value = "?"...
Re : code vba couleur onglet
Salut,
Un exemple avec l'utilisation d'un API
Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias _
"ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
Private Type CHOOSECOLOR
lStructSize As Long
hwndOwner As Long
hInstance As Long...
Re : PDF dans WebBrowser: OK. Mais comment masquer sa barre d'outils?
Salut,
Peut etre en mettant le focus sur le WebBrowser avant le sendKey
WebBrowser1.SetFocus
Re : Arret Calculation lors de l'ouverture de mon fichier
Re,
Une petite reserve quand meme avec EnableCalculation
La feuille ne sera plus recalculee, meme a la demande (F9 ou par le menu Option)
Il faudra repasser EnableCalculation a True pour que le calcul se fasse...
Re : Arret Calculation lors de l'ouverture de mon fichier
Salut,
Essaie simplement ceci
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.