Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Variable dans une formule

Variable dans une formule

3 réponses
Avatar
Coucou
Bonjour,

Dans la formule ci-dessous comment remplacer B1 par une varaible qui
contient la référence de la cellule à tester.
Lorsque je remplace b1 par le nom de ma variable, j'obtiens que
l'emplacement
correspondant à celle-ci est tj occupé même lorsque en réalité c'est un
emplacement vide.
Il doit y avoir un truc (je débute)
Merci de votre aide
Coucou

Sub Copie_Colle()
If IsEmpty([b1]) Then
[a1].Copy [b1]
Else
MsgBox "Il y a quelque chose en B1."
End If
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonsoir,

Sub Copie_Colle()
Dim mavar As String
mavar = Selection.Cells(1).Address

If IsEmpty(Range(mavar)) Then
[a1].Copy Range(mavar)
Else
MsgBox "Il y a quelque chose en " & mavar
End If
End Sub

'lSteph



"Coucou" a écrit dans le message de news:
4447dbc3$0$15359$
Bonjour,

Dans la formule ci-dessous comment remplacer B1 par une varaible qui
contient la référence de la cellule à tester.
Lorsque je remplace b1 par le nom de ma variable, j'obtiens que
l'emplacement
correspondant à celle-ci est tj occupé même lorsque en réalité c'est un
emplacement vide.
Il doit y avoir un truc (je débute)
Merci de votre aide
Coucou

Sub Copie_Colle()
If IsEmpty([b1]) Then
[a1].Copy [b1]
Else
MsgBox "Il y a quelque chose en B1."
End If
End Sub






Avatar
Quetzalcoatl
Bonsoir,

IsEmpty est une fonction indiquant si une *variable* a été initialisée.
Ce n'est pas ce que tu veux faire.
Utilise Application.WorksheetFunction.IsBlank


"Coucou" a écrit dans le message de news:
4447dbc3$0$15359$
Bonjour,

Dans la formule ci-dessous comment remplacer B1 par une varaible qui
contient la référence de la cellule à tester.
Lorsque je remplace b1 par le nom de ma variable, j'obtiens que
l'emplacement
correspondant à celle-ci est tj occupé même lorsque en réalité c'est un
emplacement vide.
Il doit y avoir un truc (je débute)
Merci de votre aide
Coucou

Sub Copie_Colle()
If IsEmpty([b1]) Then
[a1].Copy [b1]
Else
MsgBox "Il y a quelque chose en B1."
End If
End Sub






Avatar
Coucou
Merci cela devrait marcher.

--
Bonjour,

Merci de votre aide
Coucou
"Coucou" a écrit dans le message de news:
4447dbc3$0$15359$
Bonjour,

Dans la formule ci-dessous comment remplacer B1 par une varaible qui
contient la référence de la cellule à tester.
Lorsque je remplace b1 par le nom de ma variable, j'obtiens que
l'emplacement
correspondant à celle-ci est tj occupé même lorsque en réalité c'est un
emplacement vide.
Il doit y avoir un truc (je débute)
Merci de votre aide
Coucou

Sub Copie_Colle()
If IsEmpty([b1]) Then
[a1].Copy [b1]
Else
MsgBox "Il y a quelque chose en B1."
End If
End Sub