Discussion :

[zindix]

Bonjour,

Je reviens vers vous suite à mon projet VBA.

J'aimerais pouvoir regarder si dans une colonne il y a une valeur alors afficher une fenêtre sinon sélectionner 2 colonnes autres et les copier/coller dans une autre feuille

J'ai déjà réalisé ce code mais il ne marche pas et je ne sais pas comment procéder pour le sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub CommandButton1_Click()
 
fin_bdd = Worksheets("bdd").Range("A3000").End(xlUp).Row
 
If Worksheets("bdd").Range("D2:"D & fin_bdd") <> "" Then
    Heure_rattraper.Show
 
End If
Worksheets("bdd").range("A2":"B" & fin_bdd").copy
Worksheets("planning").Range(A2).Paste
 
 
'MsgBox fin_bdd
 
End Sub

Merci d'avance.

[Menhir]

Regarde la position de tes guillemets dans cette partie de code : Range("D2:"D & fin_bdd").
Le second est mal placé et le troisième est en trop.

[zindix]

Merci et pour savoir si la cellule est vide c'est bien comme ça qu'il faut l'écrire ou pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<> ""