A voir également:
- VBA identification d'une cellule protégée
- Entrer les informations d'identification reseau - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
Bonjour,
Par ce code, tu sais si ta cellule est verrouillée, ou non....
Bonne journée
Par ce code, tu sais si ta cellule est verrouillée, ou non....
If Range("A1").Locked Then
MsgBox "Cellule verrouillée"
End If
Bonne journée
Ce qui est bizarre c'est que avec le code ci dessous il a l'air de comprendre que toutes les cellules sont bloqués alors qu'il n'en est rien. De plus lorsque j'inverse la condition il me met un bogage haaaa
Faut il représiser dans quel classeur allez regarder ?
Sub testplantilla()
'voila un bout de code qui va ouvrir 2 fichier par la fenetre _
douverture manuelle et stocker les 2 classeurs dans 2 variable'
Dim classeur1, classeur2 As Workbook
Dim filename As Variant
filename = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , False)
Set classeur1 = Workbooks.Open(filename)
filename = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , False)
Set classeur2 = Workbooks.Open(filename)
'ensuite tu faut utiliser ces 2 variables pour alimenter les cellules _
si tu dois alimenter dans le 1er classeur avec des références au 2eme'
For i = 0 To 727
If Range("E9").Locked Then
Range("E9") = ""
Else
classeur1.Sheets("bilan").Range("E9").Offset(i, 0).Value = _
Application.WorksheetFunction.VLookup( _
classeur1.Sheets("bilan").Range("D9").Offset(i, 0), _
classeur2.Sheets("bilan").Range("D9:E727"), 2, 0)
End If
Next i
End Sub
Faut il représiser dans quel classeur allez regarder ?
Sub testplantilla()
'voila un bout de code qui va ouvrir 2 fichier par la fenetre _
douverture manuelle et stocker les 2 classeurs dans 2 variable'
Dim classeur1, classeur2 As Workbook
Dim filename As Variant
filename = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , False)
Set classeur1 = Workbooks.Open(filename)
filename = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , False)
Set classeur2 = Workbooks.Open(filename)
'ensuite tu faut utiliser ces 2 variables pour alimenter les cellules _
si tu dois alimenter dans le 1er classeur avec des références au 2eme'
For i = 0 To 727
If Range("E9").Locked Then
Range("E9") = ""
Else
classeur1.Sheets("bilan").Range("E9").Offset(i, 0).Value = _
Application.WorksheetFunction.VLookup( _
classeur1.Sheets("bilan").Range("D9").Offset(i, 0), _
classeur2.Sheets("bilan").Range("D9:E727"), 2, 0)
End If
Next i
End Sub
