Recherche:

Bonjour,
Peut-être comme cela (???)

Sub bb()
Dim Source As Range
Set Source = ActiveSheet.Range("a7")
[c7].Formula = "=DATEDIF(" & Source.Address & ",TODAY(),""Y"")"
End Sub

Bonjour,

Essayez la démarche suivante :
1) Créez un module de classe et renommez-le cls_AppEvents puis insérez le code suivant :


Public WithEvents Appl As Application

Private Sub...

Bonjour,

C'est incompréhensible pour ma part.
Essayez de commencer par travailler avec un variant se comportant comme un tableau bidimensionné dans lequel vous pourrez faire vos tests (voir...

Bonjour,
Cela devient très compliqué mais peut-être que la fonction prenant en compte vos remarques vous aidera à avancer (voir le classeur en pièce jointe).

Alors peut-être comme suit

Function CONCAT_MAUVAIS(Plage As Range, Plage_criteres As Range) As String
Dim C As Range
Dim C2 As Range
Dim A$
'---
For Each C In Plage
For Each C2 In...

Bonjour,
Avec une fonction personnalisée comme par exemple celle qui suit à copier dans un module Standard

Function CONCAT_MAUVAIS(Plage As Range) As String
Dim C As Range
Dim A$
'---
For...

Bonjour,
Peut-être un truc comme suit :

Private Sub CommandButton1_Click() 'ou autre ???
Dim SH As Worksheet
Dim derligne As Long
'---
Set SH = ThisWorkbook.Worksheets("mars")
With SH
...

Bonjour,

Essayez avec votre code modifié

Private Sub CommandButton4_Click()
Dim R As Range
Dim var As Variant
Dim k&
Dim i As Long

Bonjour,
Allez voir le lien suivant
http://silkyroad.developpez.com/VBA/EvenementsGraphiques/#LII-B

Bonjour,
Ce doit être possible mais il faut d'abord enregistrer le Template complété en .doc
C'est sur ce dernier que les propriétés avancés du document Word pourront être modifiées.

L'ActiveX considère comme Selection la dernière cellule (ou plage) qui a été sélectionnée.

On peut toutefois sélectionner la Shape tout en exécutant le code de l'ActiveX mais je ne vois pas...

Bonjour,

Le contrôle ActiveX nécessite qu'on lui fournisse la Shape à traiter. Ce n'est donc pas la sélection de la Shape qui va le renseigner alors que c'est ce qu'il faut faire avec un contrôle...

Salut,
Comme je ne suis pas en situation, je ne sais pas.
Regardez la nouvelle pièce jointe où le code VBA et le code XML ont été modifiés. Peut être que cela apportera de l'eau à votre moulin.

Bonjour antonysansh ,



OUI cela lance le getText.
Pour vous en rendre compte placez un Stop dans le code de getText comme suit :


Sub GetEditBoxText(control As IRibbonControl, ByRef...

Bonjour,

Une piste avec l'exemple en pièce jointe.

1) Code XML

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RubanCharge">
<!-- onLoad="RubanCharge" est...

Bonjour,

Une piste avec la macro CreateMatrice qui va vous demander 2 choses :
1) la plage des données (ce que vous avez coloré en jaune)
2) la cellule de réception où va s'inscrire le résultat...

Bonjour,
La fonction Transpose d'Excel n'aime pas effectivement les valeurs à plus de 255 caractères.
Il faut fabriquer sa propre fonction de transposition (voir les modifications signalées par...

Bonjour,
J'ai refait le code de la Sub Edition pour que ce soit plus explicite.
On se rendra compte que la Shape est un conteneur avec un objet Excel.Rectangle. C'est ce dernier dont les propriétés...

Bonjour,

Une piste avec votre code modifié (voir les ///ajout/modif)

Public Sub testSh()
Dim wk As Worksheet
Dim bc As Byte
Dim nm() As Variant
Dim lg As Integer
Dim ht As Integer

Bonjour,
Vous avez oublié la Lvalue (left value). Il faut une variable réceptrice de l'instruction.

Sub aa()
Dim x As Long
x = Range("A1").Columns.Count
MsgBox x
' Ou alors
MsgBox...

Bonjour,


Sub principale()
Dim nom1 As String, nom2 As String, nom3 As String
Dim table1 As Variant 'le type est Variant
Dim i&
'---
'divers traitement... et ensuite
nom1 = "toto"

Bonjour,
Oui, c'est le nombre de 0 (zéro) qui va être ajouté.
77d2 donnera 7700
77d0 donnera 77
77d3 donnera 77000

Pour pallier vous pouvez faire un code comme suit :

Function retVal(v As...

Bonjour,

L'Api URLDownloadToFile charge l'image sur votre ordinateur, ce que vous ne voulez pas.

Pour le WebBrowser, voici un exemple ci-dessous.
La restriction est que cet ActiveX n'est pas...

J'en reste là.
Faites comme vous voulez.

Bonjour,

Peut être comme cela

Range("J11:Q61").Sort Key1:=Range("Q11"), Header:=xlGuess